E-mails con VB
Varo
03 de Diciembre del 2002
Necesito codigo de vb para enviar e-mails, de manera que la persona que utilice el programa no se de cuenta y no sospeche nada que se ha mandado un mail.
Muchas gracias.
Muchas gracias.
visillac
03 de Diciembre del 2002
El siguiente codigo va para OutLook y el e-mail queda registrado en la bandeja de enviados salvo que configures el Outlook con una regla para que se elimine en forma automatica. Ej como regla si el asunto es "xxxxxxxxx" eliminar el mail enviado.
Bueno ahi va el codigo de VB.
Suerte.
Option Explicit
'Agregar Proyecto/Referencias (Microsoft Outlook 8.0 Object Library)
Dim MiOutLook As Outlook.Application
Dim MiMailMAPI As Outlook.MailItem
Private Sub Form_Load()
Set MiOutLook = CreateObject("OutLook.Application")
Set MiMailMAPI = MiOutLook.CreateItem(olMailItem)
MiMailMAPI.To = "[email protected]"
MiMailMAPI.Cc = "[email protected]"
MiMailMAPI.Subject = "Asunto del Mail"
MiMailMAPI.Body = "Detalle del Mail"
MiMailMAPI.Importance = 1
MiMailMAPI.Send
Set MiMailMAPI = Nothing
End Sub
Bueno ahi va el codigo de VB.
Suerte.
Option Explicit
'Agregar Proyecto/Referencias (Microsoft Outlook 8.0 Object Library)
Dim MiOutLook As Outlook.Application
Dim MiMailMAPI As Outlook.MailItem
Private Sub Form_Load()
Set MiOutLook = CreateObject("OutLook.Application")
Set MiMailMAPI = MiOutLook.CreateItem(olMailItem)
MiMailMAPI.To = "[email protected]"
MiMailMAPI.Cc = "[email protected]"
MiMailMAPI.Subject = "Asunto del Mail"
MiMailMAPI.Body = "Detalle del Mail"
MiMailMAPI.Importance = 1
MiMailMAPI.Send
Set MiMailMAPI = Nothing
End Sub