Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Si tienes Outlook lo más fácil es que en referencias lo cojas, abras una aplicación y lo uses:
Para probar el código añadir en las referencias Outlook y crear formulario con un botón y 3 cajas de texto:
txtFichero.Text -> Fichero que quieres vaya con el correo (opcional) txtDestinatario.Text -> E-mail del destinatario del correo txtMensaje.Text -> Mensaje que deseas enviar
Private Sub Command1_Click()
Dim Aplicacion As New Outlook.Application Dim mensaje As Outlook.MailItem
On Error GoTo err_Mensaje
Set mensaje = Aplicacion.CreateItem(olMailItem) mensaje.Attachments.Add txtFichero.Text mensaje.To = txtDestinatario.Text mensaje.Subject = "Prueba de correo" mensaje.Body = txtMensaje.Text mensaje.Send
Set mensaje = Nothing Set Aplicacion = Nothing
Exit Sub
err_Mensaje: MsgBox Err.Number & " - " & Err.Description Set mensaje = Nothing Set Aplicacion = Nothing