Makro za pošiljanje e-Mail-a

Pomoč pri delu z MS Excelom
Odgovori
dragopre
Prispevkov: 105
Pridružen: To Dec 11, 2012 11:46 pm

Makro za pošiljanje e-Mail-a

Odgovor Napisal/-a dragopre »

Pozdravljeni

Iz foruma sem prekopiral in svojim podatkom prilagodil makro za pošiljanje e-pošte.
Že pri enostavnem testu dobim naslednjo prekinitev:

Run-time error ...
The »SendUsing« configuration value is invalid.


Prilagam kodo makra:

Koda: Izberi vse

 Option Explicit

Sub PosljiEPosto(pKlic)
    Dim iMsg As Object
    Dim iConf As Object

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    With iMsg
        Set .Configuration = iConf
        .To = "drago.prevodnik@gmail.com"
        .CC = ""
        .BCC = ""
        .From = "<drago.prevodnik@siol.net>"
        .Subject = "Poročilo"
        .TextBody = "V prilogi pošiljam poročilo o intervenciji."
        .AddAttachment "c:\Excel\Postopno\Gasilec_9\POR_Fin\Financno_Init.xlsx"
        .Send
    End With

    Set iMsg = Nothing
    Set iConf = Nothing
End Sub 
Prosim za pomoč.
Lep pozdrav, Drago
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Makro za pošiljanje e-Mail-a

Odgovor Napisal/-a admin »

Pozdravljeni,

Preko vikenda sem bil odsoten; tako da malce poznejši odgovor, ki ga boste našli v tejle tematiki.
lp,
Matjaž Prtenjak
Administrator
dragopre
Prispevkov: 105
Pridružen: To Dec 11, 2012 11:46 pm

Re: Makro za pošiljanje e-Mail-a

Odgovor Napisal/-a dragopre »

Pozdravljeni

Spet imam problem z e-pošto.
Po vzorcu iz predlagane tematike sem pripravil makro za pošiljanje pošte in vse mi lepo deluje - na mojem PC.
( strežnik za odhodno pošto je mail.siol.net )

Potem sem zvezek prepisal na drug PC ( prijatelj - gasilec ).
Preveril sem ime strežnika za odhodno pošto na njegovem PC (smtp.gmail.com) in ga uporabil v makru.
In dobim napako "The transport failed to connect to server".

Prilagam testni makro, ki pri nastavitvi "mail.siol.net" deluje, pri "smtp.gmail.com" pa ne.

Koda: Izberi vse

Sub PosljiEPostoTest()

  Dim iMsg As Object
  Dim iConf As Object

  Set iMsg = CreateObject("CDO.Message")
  Set iConf = CreateObject("CDO.Configuration")

  iConf.Load -1
  Set flds = iConf.Fields
  With flds
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"        '  "mail.siol.net"
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
   .Update
  End With
  With iMsg
    Set .Configuration = iConf
        .To = "drago.prevodnik@gmail.com"
        .CC = ""
        .BCC = ""
        .From = "drago.prevodnik@siol.net"
        .Subject = "Poročilo"
        .TextBody = "V prilogi pošiljam poročilo o intervenciji ... ."
        .AddAttachment "c:\Excel\Gasilec_Jože_Kluč\POR_Fin\Financno_1.xlsx"
        .Send
  End With
End Sub 
Hvala za pomoč in lep pozdrav

ps.
Čeprav sem precej programiral, sem z e-pošto "domač" le kot uporabnik.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Makro za pošiljanje e-Mail-a

Odgovor Napisal/-a admin »

:) Ja za gmail bo pa potrebno nastavitve malce popraviti. Če malce premislite bi takole kot imate vi lahko kdorkoli pošiljal e-pošto preko poljubnega gmail računa ... UPSI - nikjer namreč nimate ne uporabniškega imena ne gesla... torej za gmail bo potrebno še malce več nastavitev:

Koda: Izberi vse

  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = <uporabniško ime> "ime@gmail.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = <uporabniško geslo>
Potem bi pa moralo iti...
lp,
Matjaž Prtenjak
Administrator
Odgovori