............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

ME PODEIS AYUDAR NO DOMINO DEMASIADO

Ir abajo

ME PODEIS AYUDAR NO DOMINO DEMASIADO

Mensaje por jordi sanchez ferre el Miér Mayo 23, 2012 8:18 am

Estoy utilizando este macro para adjuntar un fichero excel y enviar e-mail.

Código:
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ThisWorkbook.Sheets("COMUNICADO").Range("TOENVIOSOCIO").Value
.CC = ThisWorkbook.Sheets("COMUNICADO").Range("CCENVIOSOCIO").Value
.BCC = ""
.Subject = ThisWorkbook.Sheets("COMUNICADO").Range("ASUNTOENVIOSOCIO").Value
.Body = "Apreciado socio," & vbNewLine & vbNewLine & ThisWorkbook.Sheets("COMUNICADO").Range("CUERPOENVIOSOCIO") & vbNewLine & vbNewLine & "Pasos a seguir:" & vbNewLine & "  1. Abra el archivo adjunto." & vbNewLine & "  2. Rellene sólo las celdas que están en amarillo." & vbNewLine & "  3. Envíe sus previsiones haciendo 'Click' en enviar ." & vbNewLine & "¡Atención! si desea guardar en su PC la promoción, hágalo después de enviarnos los datos." & vbNewLine & vbNewLine & "Saludos cordiales," & vbNewLine & vbNewLine & ThisWorkbook.Sheets("COMUNICADO").Range("clubocomercial")
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End Sub
El tema es que el color del body en el e-mail tendría que se este:

Código:
With Selection.Font
        .Color = -6291456
        .TintAndShade = 0
End With
EL PROBLEMA ES QUE NO SE COMO INTEGRAR ESTO ULTIMO EN LA MACRO, NO ME ACTUA.

Gracias anticipadas.




jordi sanchez ferre

Masculino Cantidad de envíos : 3
Edad : 63
Ciudad - Pais : barcelona
Version de Excel : 2007
Fecha de inscripción : 05/05/2012

Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.