VB6 enviar email
Moderador: Moderadores
VB6 enviar email
hola a todos, soy nuevo y quisiera saber si me pueden ayudar, tengo un textbox con una direccion de correo y quiero que haciendo un click te abra el outlook listo para mandar un mail alguien me puede mandar un ejemplo, y saben si se puede pintar un DataGrid??
xdddddd
Private Sub SendMail()
Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
.To = "nombre@dominio.com"
'.CC = "nombre@dominio.com"
.Subject = "Orden de Compra"
'.Body = "This is the body of message"
'.HTMLBody = <Body>"Please go to the " AAGTC_Scheduling.NavigateTo("AAGTC_Scheduling", "C:\program files\autocad 2002", "application to review the document.", vbNullString, "C:\", SW_SHOWNORMAL"
.Attachments.Add ("c:\planos.zip")
.Send 'Let´s go!
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub
Aqui envia un attachment ZIP como se ve, nota: tienes que agregar una referencia de office u outlook en VB para que funcione
Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
.To = "nombre@dominio.com"
'.CC = "nombre@dominio.com"
.Subject = "Orden de Compra"
'.Body = "This is the body of message"
'.HTMLBody = <Body>"Please go to the " AAGTC_Scheduling.NavigateTo("AAGTC_Scheduling", "C:\program files\autocad 2002", "application to review the document.", vbNullString, "C:\", SW_SHOWNORMAL"
.Attachments.Add ("c:\planos.zip")
.Send 'Let´s go!
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub
Aqui envia un attachment ZIP como se ve, nota: tienes que agregar una referencia de office u outlook en VB para que funcione
