buongiorno a tutti,
ho un problema con l'invio di newsletter o piu' precisamente con l'invio di formati html:
la parte che ho inserito sotto funziona quando uso .textbody con del testo normale ma quando sostituisco con .HTMLBody allora non funziona piu' nulla.
in particolare io vorrei inserire un'immagine nel corpo della mail ma non funziona nulla
qualcuno potrebbe darmi un aiutino?
grazie
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Do Until objrs.EoF
mittente = "newsletter@xxxxxxxx.it"
destinatario = objrs(3)
oggetto = "xxxxxxxxxxxxxxx
messaggio = newsletter & VbCrLf & VbCrLf & VbCrLf & VbCrLf & VbCrLf _
& "vai sul sito da qui " _
& ("http://www.xxxxxxxx.it/") _
& VbCrLf & VbCrLf & VbCrLf & VbCrLf & VbCrLf _
& "Se vuoi cancellarti dalla Newsletter clicca sul link " _
& ("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx")
With iMsg
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
.HTMLBody = “<h1>questo è un testo HTML</h1>”
.Send()
end with
objrs.MoveNext
Loop
Rispondi quotando
"