Pozdravljeni
Imam podatke, katere moram pošiljati po mailu.
Podatke zberem s pomočjo Excela, ostalo pa ročno. Želel sem si malo poenostaviti in sem rešitev našel na forumu: http://www.matjazev.net/forum/viewtopic ... ht=outlook.
Za začetek sem kodo precej poenostavil:
Sub PosljiEPosto()
Dim iMsg As Object
Dim iConf As Object
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = "mail stranke"
.CC = ""
.BCC = ""
.From = "moj mail"
.Subject = ""
.TextBody = "Test"
.AddAttachment ""
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
End Sub
Vklopil sem tudi podporo za outlook: Tools\References => Microsoft Outlook 10.0 Object Library.
Koda pa se mi zatakne (prii pošiljanju ".Send").
Torej; kje sem naredil napako?
Sub PosljiPosto()
Dim objOutlook As Object
Dim sporocilo As Object
' ustvarim instanco Outlook objekta
Set objOutlook = CreateObject("Outlook.Application")
' Ustvarim prazno pošto
Set sporocilo = objOutlook.createitem(0)
' Postavim prejemnika
sporocilo.Recipients.Add "domenvaupotic@gmail.com"
' Postavim zadevo
sporocilo.Subject = "Pošta iz VBA"
' Telo sporočila
sporocilo.body = "Hm, test, kaj pa drugega..."
' Pa še pošljem
sporocilo.Send
' Za sabo vse lepo pozaprem
Set myOutlook = Nothing
End Sub
Mene pa zanima, kako dodam več prejemnikov hkrati, ki jim pošljem še priponko. Poskusil sem s spodnjo kodo, vendar sem opazil, da mi potem isto priponko pripne dvakrat in ne samo enkrat.