Red Font in a Variable

[nniedzielski]

I am using a macro to send an email, when i create the body of the email it is pulled from a worksheet in the workbook. Its 3 lines of text, one of them being red. When the macro runs the font is not red, how can i get the macro to pull in the text and keep it red?

thanks,

strBody = Worksheets("Email Body").Range("A1").Value

With mItem
.to = recip
.CC = carbonC
.Subject = "Please Review"
.Body = strBody
.Attachments.Add sFilename
.importance = 2
.display
End With

This is what strBody is pulling in,

If this email has reached you in error, please provide updated email information for this account.
PLEASE REPLY ALL

Thank you,

 

[Domenic]

Try the following instead...

Worksheets("Email Body").Range("A1").Copy

With mItem
    .Display
    .to = recip
    .CC = carbonC
    .Subject = "Please Review"
    With .GetInspector.WordEditor
        .Application.Selection.Paste
    End With
    .Attachments.Add sFilename
    .importance = 2
End With

Note that the email needs to be displayed in order to reference the inspector, hence the Display method is executed first, and then the rest of the code.

Hope this helps!

 

[nniedzielski]

Try the following instead...

Worksheets("Email Body").Range("A1").Copy

With mItem
    .Display
    .to = recip
    .CC = carbonC
    .Subject = "Please Review"
    With .GetInspector.WordEditor
        .Application.Selection.Paste
    End With
    .Attachments.Add sFilename
    .importance = 2
End With

Note that the email needs to be displayed in order to reference the inspector, hence the Display method is executed first, and then the rest of the code.

Hope this helps!

thanks, before i try it, i have it as .display right now, but want to change it to .send once i have everything the way i want it, will that change how this would work?

 

[Domenic]

Simply keep .Display as your first line of execution, and add .Send at the end after .Importance . . .

 

[nniedzielski]

is there a way to store the font color in the variable?

 

[Domenic]

You can store the font color as follows...

    Dim theFontColor As Long
    theFontColor = Range("B9").Font.Color

However, if you have more than one font color for the characters in your cell, it would be a little more complex. One way might be use an array to store both the text and corresponding font color for each character, where each element in the array contains a two-element array that consists of the text and corresponding font color for the character.