Font color and size change

[dwarek]

Hello i have a program to extract data from cell and print it to the outlook but the problem is ,in one particular cell i have changed the font color and size but its is getting printed into the outlook as it is in the cell, it just print the default font size and color ... is there any solution for it ??? thanks in advance

 

[Trevor G]

You would need to show the program you have. What part of Outlook.

 

[CsJHUN]

Hi dwarek!

It is here somewhere too, but worth a look. (Ron De Bruin: excel to email VBA)

Best of luck

 

[dwarek]

so this is my code

Private Sub CommandButton1_Click()
Range("A2").Select




While Not ActiveCell = ""


Mail_To = ActiveCell.Offset(0, 0)


Mail_Subject = "testing"
Mail_Voting = ActiveCell.Offset(0, 4)










Set myolapp = CreateObject("Outlook.Application")
Set myitem = myolapp.CreateItem(olMailItem)


With myitem



.VotingOptions = Mail_Voting
.To = Mail_To

.Subject = ActiveCell.Offset(0, 1)
.Body = ActiveCell.Offset(0, 2)
.display
End With

ActiveCell.Offset(1, 0).Select
Wend
End Sub


Private Sub CommandButton2_Click()
Unload UserForm2
End Sub