OTWarrior
10-13-2010, 02:19 AM
Just something I am playing around with.
I quite often get a wide variety of emails styles from people. Some in Arial, some in large green Comic Sans [shudder], but thought I might try replying back in the same style. If they have chosen that style, maybe they find it easier to read.
In any case, I a a couple of problems in trying to do this
1) How can I read the font of the messagebody? (after the line break, which I have discovered is chr(13)).
2) Can I have this automatically work when I hit reply, or does it have to be on a button on a toolbar?
this is what I have so far:
Sub theirFont()
Dim MItem As Object
Dim findText As Integer
Dim findFont As String
Set MItem = ActiveInspector.CurrentItem
findText = InStr(1, MItem.HTMLBody, Chr(13))
'brain stops here
End Sub
I quite often get a wide variety of emails styles from people. Some in Arial, some in large green Comic Sans [shudder], but thought I might try replying back in the same style. If they have chosen that style, maybe they find it easier to read.
In any case, I a a couple of problems in trying to do this
1) How can I read the font of the messagebody? (after the line break, which I have discovered is chr(13)).
2) Can I have this automatically work when I hit reply, or does it have to be on a button on a toolbar?
this is what I have so far:
Sub theirFont()
Dim MItem As Object
Dim findText As Integer
Dim findFont As String
Set MItem = ActiveInspector.CurrentItem
findText = InStr(1, MItem.HTMLBody, Chr(13))
'brain stops here
End Sub