Buenas... Este es la funcion que estoy utilizando:
Public Function sendEmail(pStrIpSmptServer As String, _
ByVal pStrSenderName As String, _
ByVal pStrSenderAccount As String, _
ByVal pStrAccoPasword As String, _
ByVal pStrRecipient As String, _
ByVal pStrSubject As String, _
ByVal pStrHTMLBody As String, _
Optional ByVal pStrCc As String, _
Optional ByVal pStrBcc As String, _
Optional ByVal pColAttachments As Collection, _
Optional pIntPort = 25) As Boolean
Dim cdoMsg 'As New CDO.Message
Dim cdoConf 'As New CDO.Configuration
Dim Flds
Dim attachment
'Dim strHTML
On Error GoTo ErrTrap
Const cdoSendUsingPort = 2
Set cdoMsg = CreateObject("CDO.Message")
Set cdoConf = CreateObject("CDO.Configuration")
Set Flds = cdoConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort '2
'Sending using external server
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = pStrIpSmptServer 'change your smtp server here
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(pIntPort) 'server port using for email
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = RTrim(LTrim(pStrSenderAccount)) 'account
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = RTrim(LTrim(pStrAccoPasword)) 'password
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpaccountname") = "estados@coopemedicos.com"
'password
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1" 'password
.Update
End With
' Apply the settings to the message.
With cdoMsg
Set .Configuration = cdoConf
.To = pStrRecipient
.From = pStrSenderAccount
.Subject = pStrSubject
'.TextBody = pStrBody
.HtmlBody = pStrHTMLBody
If Not pColAttachments Is Nothing Then
For Each attachment In pColAttachments
.AddAttachment attachment
Next
End If
If pStrCc <> "" Then .CC = strCc
If pStrBcc <> "" Then .BCC = strBcc
.send
End With
ErrTrap:
Set cdoMsg = Nothing
Set cdoConf = Nothing
Set Flds = Nothing
If Err.Number <> 0 Then
Err.Raise Err.Number, "", "Error from Functions.SendEmail" & Err.Description
sendEmail = False
Else
sendEmail = True
End If
End Function
Y este el codigo html que esto utilizando para pasarlo a la funcion.
strCodHmtl = "<html>" & _
"<head>" & _
"</head>" & _
"<Body>" & _
"<font size=2pt>Estimado asociado(a): <p>Para ti! Con mucho carino te mando este deseo, de feliz cumpleaños.</p> Le deseamos
que pase un excelente día!!</font>" & _
"<p><IMG SRC=""image1.jpg""/></p>" & _
"</Body>" & _
"</html>"
Cuando me llega al correo solo puedo ver el texto y donde va la imagen me sale una X.
Gracias por cualquier ayuda!
