G
Gal Zilberman
Hi
I'm trying to send a Right to Left Email from access.
I'm trying to find a way for the text to be aligned to the right and to be
written from the Right to the Left.
I'm not using the
DoCmd.SendObject , , , , , , strSubject, strMsg
code as I can't find a way pass the RTL ref into it.
I'm trying to use the Outlook VBA to do this but I can't find the way to do
this.
This is my current code:
' Vars
Dim strMsg As String
Dim strSubject
Dim olApp As New Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olMail As Outlook.MailItem
' Open an Outlook object
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olMail = olApp.CreateItem(olMailItem)
' Message text
strMsg = "The message text"
strSubject = "Subject Line text"
' Open message
With olMail
.Subject = strSubject
.BodyFormat = olFormatRichText
.Body = strMsg
.Display
End With
thanks for your help
Gal
I'm trying to send a Right to Left Email from access.
I'm trying to find a way for the text to be aligned to the right and to be
written from the Right to the Left.
I'm not using the
DoCmd.SendObject , , , , , , strSubject, strMsg
code as I can't find a way pass the RTL ref into it.
I'm trying to use the Outlook VBA to do this but I can't find the way to do
this.
This is my current code:
' Vars
Dim strMsg As String
Dim strSubject
Dim olApp As New Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olMail As Outlook.MailItem
' Open an Outlook object
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olMail = olApp.CreateItem(olMailItem)
' Message text
strMsg = "The message text"
strSubject = "Subject Line text"
' Open message
With olMail
.Subject = strSubject
.BodyFormat = olFormatRichText
.Body = strMsg
.Display
End With
thanks for your help
Gal