Hola gente del foro ahora bengo con un programa para enviar mail con la dll
vbSendMail el cual me marca error este es el code que tengo:
Private WithEvents poSendMail As vbSendMail.clsSendMail
Private Sub Command1_Click()
Set poSendMail = New clsSendMail
With poSendMail
.SMTPHostValidation = VALIDATE_HOST_DNS
.EmailAddressValidation = VALIDATE_SYNTAX
.Delimiter = ";"
.SMTPHost = "smtp.gmail.com"
.From = "flamer.mateus@gmail.com"
.FromDisplayName = "polo"
.Message = "mensaje de pruebas"
.Attachment = "c:\prueba.txt"
.Recipient = "flamer.mateus@gmail.com"
.RecipientDisplayName = "noe"
.Subject = "pruebas keylogger"
.Send
End With
End Sub
Private Sub poSendMail_SendFailed(Explanation As String)
MsgBox Explanation, vbExclamation, "Error"
End Sub
Private Sub poSendMail_SendSuccesful()
MsgBox "Se envio correctamente", vbInformation, "Correcto"
End Sub
ya lo agregue a referencias la dll y la registre al sistema
mi duda es si se tiene que iniciar sesion para enviar un mail con mi cuenta
saludos flamer y espero que me digan donde esta el error y por que nose
envia el mail
Supongo que deberías loguearte.
Este lo use hace tiempo y va bien.
Public Function SendMail(sTo As String, sSubject As String, sFrom As String, _
sBody As String, sSmtpServer As String, iSmtpPort As Integer, _
sSmtpUser As String, sSmtpPword As String, _
sFilePath As String, bSmtpSSL As Boolean) As String
On Error GoTo SendMail_Error:
Dim lobj_cdomsg As CDO.Message
Set lobj_cdomsg = New CDO.Message
lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = sSmtpServer
lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = iSmtpPort
lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = bSmtpSSL
lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
lobj_cdomsg.Configuration.Fields(cdoSendUserName) = sSmtpUser
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = sSmtpPword
lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 30
lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
lobj_cdomsg.Configuration.Fields.Update
lobj_cdomsg.To = sTo
lobj_cdomsg.From = sFrom
lobj_cdomsg.Subject = sSubject
lobj_cdomsg.TextBody = sBody
If Trim$(sFilePath) <> vbNullString Then
lobj_cdomsg.AddAttachment (sFilePath)
End If
lobj_cdomsg.Send
Set lobj_cdomsg = Nothing
SendMail = "ok"
Exit Function
SendMail_Error:
SendMail = Err.Description
End Function
saludos
Hola dany gracias ya lo solucione use otro metodo y en el anterior logico tendria que loguearme jajajja error mio.
y en el codigo que pusistes nose y no entiendo que usas si una dll o que
saludos Flamer
No usa dll. solo el objecto CDO de Microsoft.
saludos