Replying (but not sending) a .msg email saved on HD?

[southen]

I have code that allows me to drag and drop an email to an access field, which then stores that email on the local / network folder. Another field with that email's file path is also displayed.

My big question is: knowing the email's file path, how can I have the system open those (network/folder) saved emails as a reply (not automatic send)?

I envision this as being triggered by a _Change event; if a drop-down changes or is selected, then the system reads the location in the 'Email Location' field, and opens the reply to that email.

I'm not sure where to start with this. I'd greatly appreciate any help!!!

Thanks.

 

[southen]

I'm sorry, but...bump

 

[southen]

First, I can get close by opening the .msg and inserting a 'response', but I cannot get ".reply" to work - I think my syntax / usage is just not correct. As a result, I need to manually insert my signature, while I believe using "reply" would automatically insert it, etc. etc.

Second, I don't know how to omit attachments. I tried ".Attachments = false, but this didn't work - maybe it's because my method does not use .reply?

I'd appreciate ANY help!!!

Thanks!!!

 Private Sub Cleared_Change()
   
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
'In case CC is missing
On Error Resume Next
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
 'Response body
    strbody = "Default text<br><br>" & _
              "Signature"
 'Set OutMail = OutApp.CreateItem(olMailItem)
Set OutMail = OutApp.CreateItemFromTemplate(Me.EmailLocation)
With OutMail
    .To = Me.To
    .CC = Me.CC
    .Subject = "RE: " & .Subject
 '  .BodyFormat = olFormatHTML
    .HTMLBody = strbody & .HTMLBody                 '.body = Msg"
    .Display
    .Sensitivity = olConfidential
    .Attachments = False
End With
 End Sub

 

[southen]

Huh, I'm surprised no one here knows. I didn't think this would be so esoteric....