RE:Quiero crear y enviar un correo html desde lotu
Publicado por
laalternativa (1 intervención) el 12/11/2007 17:54:33
oSession.ConvertMIME = False '<-- Este es el secreto
Set oDocCorreo = oSession.CurrentDatabase.CreateDocument
Set oBody = oDocCorreo.CreateMIMEEntity
oDocCorreo.From = "eCertificaciones"
sEval =|@NameLookup([Exhaustive];"| & aSend & |";"InternetAddress")|
aEval = Evaluate(sEval)
If aEval(0) = "" Then
sSend = aSend
Else
sSend = aEval(0)
End If
oDocCorreo.sendTo = sSend
oDocCorreo.Principal = "yo"
oDocCorreo.Recipients= "yo"
oDocCorreo.PostedDate = Now()
Set oHeader = oBody.CreateHeader( "Subject" )
Call oHeader.SetHeaderVal( sSubject )
Set oStream = oSession.CreateStream
sCuerpo = "<html><head></head><body>Este es el html</body></html>"
Call oStream.WriteText(sCuerpo)
oStream.Position = 0
Call oBody.SetContentFromText ( oStream, "text/html;charset=utf-8 ", ENC_IDENTITY_8BIT )
Call oDocCorreo.Send(False)