Poizkušam poslati pošto iz Excela z uporabo vaše kode iz foruma, vendar se mi zadeva ustavi pri vrstici ".Send".
Koda: Izberi vse
Private Sub CommandButton1_Click()
Dim iMsg As Object
Dim iConf As Object
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = "nek.naslov@gmail.com"
.CC = ""
.BCC = ""
.From = "<moj.naslov@gmail.com>"
.Subject = "Podatki"
.TextBody = "Zaključeno na dan "
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
End Sub