[Ayuda]Enviar mail con Dll vbSendMail

[Flamer]

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:

Código [Seleccionar] Expandir


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

[Danyfirex]

Supongo que deberías loguearte.

Este lo use hace tiempo y va bien.

Código (vb) [Seleccionar] Expandir

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

[Flamer]

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

[Danyfirex]

No usa dll. solo el objecto CDO de Microsoft.

saludos