Saltar al contenido

Enviar por correo una hoja excel en macro


Recommended Posts

publicado

Estimados, tengo este código para enviar por correo una hoja de excel.

Worksheets("Hoja1").Activate

With ActiveSheet.MailEnvelope

.Introduction = "Te adjunto la información que me solicitaste." & vbCrLf

.Item.To = "destinatario@hotmail.com" 'Destinatario

.Item.Subject = "Asunto"

.Item.Send 'Enviamos el e_mail

End With

ActiveWorkbook.Save

Pero, quisiera saber 3 cosas:

- El archivo que envía lo envía adjunto.

- Que tiempo se demora en llegar, ya lo hice 3 y no me llega el correo.

- Existe otro código más efectivo, o estoy haciendo algo mal.

Gracias por sus opiniones!

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.