Jump to content
Marcos14

ANSWERED Macro para enviar email

Recommended Posts

Tengo este userform con el cual quiero enviar email sin salir de excel, he mirado ya muchas cosas y no he conseguido nada.

La idea es poner yo en el userform el correo del destinario, unas veces sera uno, otras otro, una copia de ese correo a alguien mas, y asi todo incluido adjuntar cualquier tipo de archivo.

De ante mano muchas gracias, y feliz año nuevo

Captura de pantalla (48).png

Share this post


Link to post
Share on other sites
Hace 8 minutos , Antoni dijo:

Una imagen no proporciona la información necesaria para evaluar tu consulta.

Para milagros hay que ir a Lourdes, sin el userform no hay nada que hacer.

Esta macro envía un correo a partir de la fila 1 de la hoja columnas A:E, a ver si te vale:

Sub EnviarEmail(): On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then Set OutlApp = CreateObject("Outlook.Application")
'--
Destinatario = Range("A1")
Copia = Range("B1")
Asunto = Range("C1")
Cuerpo = Range("D1")
Adjunto = Range("E1")
'--
With OutlApp.CreateItem(0)
   .To = Destinatario
   .Subject = Asunto
   .CC = Copia
   .Body = Cuerpo
   .Attachments.Add Adjunto
   .Display '.Send para enviar de forma automática
End With
End Sub

 

Share this post


Link to post
Share on other sites

Antoni gracias por tu respuesta la imagen que he enviado es la del userform, si lo que me pides es que te envie el userform por aqui no se como hacerlo, lo siento

Share this post


Link to post
Share on other sites
En 1/1/2020 at 13:49 , Antoni dijo:

Esta macro envía un correo a partir de la fila 1 de la hoja columnas A:E, a ver si te vale:

Sub EnviarEmail(): On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then Set OutlApp = CreateObject("Outlook.Application")
'--
Destinatario = Range("A1")
Copia = Range("B1")
Asunto = Range("C1")
Cuerpo = Range("D1")
Adjunto = Range("E1")
'--
With OutlApp.CreateItem(0)
   .To = Destinatario
   .Subject = Asunto
   .CC = Copia
   .Body = Cuerpo
   .Attachments.Add Adjunto
   .Display '.Send para enviar de forma automática
End With
End Sub

 

Buenas Tardes, estaba viendo este codigo y me ayudo a solucionar un problema que tenia , pero quede con una duda en esta línea 

Adjunto = Range("E1")   , en la cual no logro identificar como va a hacer la macro para reconocer el archivo adjunto o la ubicación del archivo adjunto.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png