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
Lep pozdrav, Drago