AYUDA CON ESTE CODIGO PARA ENVIAR CORREO DESDE VB
con este codigo levento el servicio de correo pero, el cliente quiere poder introducir desde texbox los valores para la direccion de coreo, el sujeto y el fichero que se va a atachar.
esto lo puedo cargar en variables string pero no se como poner eso en el codigo.
ayuda por favos
Dim ol As Outlook.MailItem
Set ol = CreateItem(olMailItem)
With ol
.To = "[email protected]"
.Subject = "Test Subject"
' Either .body 'For text/Rich Text
' Or
' .HTMLBody ' For HTML Mail Message
.HTMLBody = ""
.Attachments.Add ("A:Tabla.DBF")
.Display
End With
esto lo puedo cargar en variables string pero no se como poner eso en el codigo.
ayuda por favos
Dim ol As Outlook.MailItem
Set ol = CreateItem(olMailItem)
With ol
.To = "[email protected]"
.Subject = "Test Subject"
' Either .body 'For text/Rich Text
' Or
' .HTMLBody ' For HTML Mail Message
.HTMLBody = ""
.Attachments.Add ("A:Tabla.DBF")
.Display
End With
