A
Amir
Hi,
I'm creating a new mail message in Outlook using VBA code which is being run
from Word.
Everything is working fine except for the fact the the mail message is
Left-To-Right, and I want it to be Right-To-Left.
How can I change that using VBA?
(What I want to do is equivalent to pressing the 'Right-To-Left' button)
I'm using Office 2000, with a code similar to the following code:
'-------------------------------
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strRecipientTo As String
Dim strRecipientCC As String
Dim strRecipientBCC As String
Dim strSubject As String
Dim strBody As String
Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
strRecipientTo = "a.a"
strRecipientCC = "b.b"
strRecipientBCC = "c.c"
strSubject = "subject"
strBody = "body"
With objMail
.BodyFormat = olFormatRichText
.To = strRecipientTo
.CC = strRecipientCC
.BCC = strRecipientBCC
.Subject = strSubject
.Body = strBody
.Display 'Display / Send
End With
End Sub
'-------------------------------
Regards.
I'm creating a new mail message in Outlook using VBA code which is being run
from Word.
Everything is working fine except for the fact the the mail message is
Left-To-Right, and I want it to be Right-To-Left.
How can I change that using VBA?
(What I want to do is equivalent to pressing the 'Right-To-Left' button)
I'm using Office 2000, with a code similar to the following code:
'-------------------------------
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strRecipientTo As String
Dim strRecipientCC As String
Dim strRecipientBCC As String
Dim strSubject As String
Dim strBody As String
Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
strRecipientTo = "a.a"
strRecipientCC = "b.b"
strRecipientBCC = "c.c"
strSubject = "subject"
strBody = "body"
With objMail
.BodyFormat = olFormatRichText
.To = strRecipientTo
.CC = strRecipientCC
.BCC = strRecipientBCC
.Subject = strSubject
.Body = strBody
.Display 'Display / Send
End With
End Sub
'-------------------------------
Regards.