Results 1 to 2 of 2

Thread: Auto Reply Help

  1. #1
    VBAX Newbie
    Jun 2008

    Auto Reply Help

    Well here is what I am trying to do just don't know how to do it. I know how to generate outgoing emails but my problem is how to handle incoming.

    Well, I need to setup up a script that can be used in the rule wizard and it needs to do this: Every time I get an email I need to auto reply back to the sender with the original body email. There are no rules that can do this so I need to setup some rules then add this script. Would be nice if I can even check to see if the mail is an auto reply like out of office etc... or I will get stuck in a continuous loop of auto replying. But for now I would like to be able to auto reply to every email that I get with the original message back to the sender.

    May just be able to auto forward this message back to sender? again rules will only allow you to pick someone from a distro list or specify who to forward msg to, I need to auto send the original message back to the sender.

    I don't know how to read in the body of the email or how to get the senders address into an new email.


  2. #2
    VBAX Newbie
    Jun 2008
    well got it to work and here is the code to do it !!!!!

    Sub RunAScriptRuleRoutine(MyMail As MailItem)
    Dim strID As String
    Dim olNS As Outlook.NameSpace
    Dim msg As Outlook.MailItem
    Dim rply As Outlook.MailItem

    strID = MyMail.EntryID
    Set olNS = Application.GetNamespace("MAPI")
    Set msg = olNS.GetItemFromID(strID)

    Set rply = msg.Reply
    rply.Body = msg.Body
    rply.Subject = "What ever you want the subject to be"
    'This will fill the to address as the senders address

    rply.To = msg.SenderEmailAddress

    Set msg = Nothing
    Set rply = Nothing
    Set olNS = Nothing
    End Sub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts