Outlook VBA

[Farback]

Does anyone know the VBA code for replying to an e-mail, using standard text.
[FONT=Arial,Verdana]I get a lot of e-mails which I need to respond to with "your e-mail has been received..." etc. What I would like is a button to click that will generate the return e-mail, using the sender's 'From' address, inserting the standard text message, but not actually sending the message until it has been checked and the text personalised. I don't want to set this up as a'Rule' because not all e-mails will require this response. Ideally, I need to read the e-mail, decide if it needs a standard reply, click a button to generate the response, change a bit of the text, then click 'Send'. Any help appreciated[/FONT]

 

[RoryA]

Something like this:

Sub ReplyMessage()
   Dim itmMail As MailItem
   On Error Resume Next
   Set itmMail = Application.ActiveExplorer.Selection.Item(1)
   On Error GoTo 0
   If Not itmMail Is Nothing Then
      Set itmMail = itmMail.Reply
      With itmMail
         .Body = "Your email has been received. Ta very much" & .Body
         .Display
      End With
   End If
         
End Sub

 

[Farback]

Thanks Rorya, that works fine. Just one thing, my message tends to be a bit long, how do I put a line return into the code to input a second paragraph

 

[RoryA]

You need to add vbcrlf wherever you want a new line:

strmsg = "some text" & vbcrlf & "another line"

for example.

 

[Farback]

Superb Rorya, that's just what I was after, thanks very much.