Imprimir Página - [Ayuda]Enviar mail con Dll vbSendMail

Título: [Ayuda]Enviar mail con Dll vbSendMail
Publicado por: Flamer en 13 Octubre 2013, 18:42 pm

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:

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

Título: Re: [Ayuda]Enviar mail con Dll vbSendMail
Publicado por: Danyfirex en 13 Octubre 2013, 20:33 pm

Supongo que deberías loguearte.

Este lo use hace tiempo y va bien.

Código

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

Título: Re: [Ayuda]Enviar mail con Dll vbSendMail
Publicado por: Flamer en 15 Octubre 2013, 18:07 pm

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

Título: Re: [Ayuda]Enviar mail con Dll vbSendMail
Publicado por: Danyfirex en 15 Octubre 2013, 19:32 pm

No usa dll. solo el objecto CDO de Microsoft.

saludos

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Flamer en 13 Octubre 2013, 18:42 pm