Buenas estoy tratando de enviar un correo, el cual me llega sin problemas, ahora me han pedido que le inserte un archivo, esto ultimo no lo se hacer. a ver si me pueden ayudar... aqui les pego el código a ver que me dicen, gracias.
' Servidor
strExchSvrName = "Servidor de correo"
strAlias = "alias"
strUserName = "dominio\alias"
strPassWord = "contraseña"
strFrom = "
[email protected]"
strTo = "
[email protected]"
strCc = "
[email protected]"
strSubject = "Asunto"
strBody = "cuerpo del mensaje"
strSubURL = FindSubmissionURL(strExchSvrName, _
strAlias, _
strUserName, _
strPassWord)
If strSubURL <> "" Then
bResult = False
bResult = SendMail(strSubURL, _
strFrom, _
strTo, _
strCc, _
strSubject, _
strBody, _
strUserName, _
strPassWord)
If bResult Then
MsgBox "Correo Envíado satisfactoriamnte", vbInformation + vbOKOnly, "E-mail"
End If
End If