Página 1 de 1
VB6 enviar email
Publicado: Mié May 16, 2007 5:52 am
por JC
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
Publicado: Jue May 17, 2007 1:39 am
por EPICA
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
Publicado: Jue May 17, 2007 1:44 am
por JC
Ok, gracias, voy a probarlo en estos dias. salu2.