Open a path that contains msg

[aviadht]

Hi,

Assume tyhat i have an ready mail in some path ("c:\xxxx\yyyy\mymail.msg"). how can i open it with VBA and put my subject in the subject line. the subject should be taken from cell ("a19") and the "to email" should be taken from ("a20").

Thanks,
Aviad

 

[bensonsearch]

I would modify the below to be variable, or to include your message

  Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim emaila As string
   dim subject as string
 
    subject = thisworkbook.sheets("Sheet1").range("A19").value
    emaila = thisworkbook.sheets("Sheet1").range("A20").value
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strbody = "Text here"
 
    On Error Resume Next
    With OutMail
        .To = emaila
        .CC = ""
        .BCC = ""
        .Subject = subject       
        .body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Send   
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing

 

[aviadht]

Perfect!! now if i want the text to be right to left and not left to right in thebody. Can i do it ?

 

[bensonsearch]

ok. for this we need HTML so replace the .body with

.BodyFormat = olFormatRichText
.HTMLbody = strbody

under the strbody = statement put


strbody = "p align=right" & "text here" & "/p"

at the begining of p put < end of right put > then before and after /p put < and >

it wont allow me to show it here coz its code