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

ME PODEIS AYUDAR NO DOMINO DEMASIADO

Ver el tema anterior Ver el tema siguiente 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 : 62
Ciudad - Pais : barcelona
Version de Excel : 2007
Fecha de inscripción : 05/05/2012

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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