Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Excel makró készítése
  5. (téma lezárva)
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák

Aktív témák

  • #220 matekmatika tag lapa #219
    #220
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    matekmatika

    tag

    válasz lapa #219 üzenetére

    Ilyet találtam, ami tetszik is mert értem :D , de mégse jó mert az utolsó előtti utasításnál hibaüzenettel leáll.
    Dim ObjSendMail
    Set ObjSendMail = CreateObject(''CDO.Message'')
    ObjSendMail.Configuration.Fields.Item(''http://schemas.microsoft.com/cdo/configuration/sendusing'') = 1
    ObjSendMail.Configuration.Fields.Item(''http://schemas.microsoft.com/cdo/configuration/smtpserver'') = ''mail.pr.hu''
    ObjSendMail.Configuration.Fields.Item(''http://schemas.microsoft.com/cdo/configuration/smtpserverport'') = 25
    ObjSendMail.Configuration.Fields.Item(''http://schemas.microsoft.com/cdo/configuration/smtpusessl'') = False 'Use SSL for the connection (True or False)
    ObjSendMail.Configuration.Fields.Item(''http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout'') = 60
    ObjSendMail.Configuration.Fields.Update
    ObjSendMail.To = ''kinek@pr.hu''
    ObjSendMail.Subject = ''Proba''
    ObjSendMail.From = ''kitől@freemail.hu''
    ObjSendMail.TextBody = ''Tartalom''
    ObjSendMail.Send
    Set ObjSendMail = Nothing

    A hibaüzenet pedig: ''Run-time error '-2H7220958 (80040222)':
    A felvételi könyvtár elérési útvonalának megadása kötelező,de jelenleg nincs meghatározva.''
    Hogy határozzam meg? :F Főleg hogy nem is mentett fájlt akarok küldeni, hanem aktív munkalapot.


    Mivel nem látszik a teljes kód ezért: [link]

    [Szerkesztve]

Aktív témák