jjmonterov

jjmonterov

Perdón el código Sub RevisionCPD() Dim objOL As New Outlook
 España @jjmonterov desde - visto
Preguntar

Preguntas esperando respuesta

Actividad pública reciente

Ha preguntado en el tema en

Enviar correo con botón enviar excel

Hola: Conseguí enviar un excel con botón de enviar, añadiendo los contactos y pudiendo modificar el cuerpo del mensaje con .Display en vez de .Send, mi duda ahora es como puedo añadir a este código la firma que tengo en outlook, si pudierais echarme...
Sin respuestas
Ha empezado a seguir a
Ha preguntado en el tema en

Enviar correo desde Excel

Hola: En articulo de fejoal, el cual me ha ayudado mucho, quiero darle las gracias. Me gustaría poder completar la faena, ya que este botón me envía el mail, sin poder agregar una anotación, como con la opción enviar a, que permite agregar en el...
Sin respuestas

Experiencia

Perdón el código
Sub RevisionCPD()
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "fadsfas"
.Body = "Hola: .;"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set objMail = Nothing
Set objOL = Nothing
MsgBox "Mail enviado"
End Sub