askquestion2013
Member
- Outlook version
- Email Account
- Exchange Server
Macro in Outlook for auto-reply
I need help getting started with creating a macro in outlook with conditions of:
- recieve an email from (E-Mail Removed)
- read the subject link that contains "Important Notice"
- auto-reply back to them with a format "Hey, thanks for your email. Give us 1-2 business days, we will get back to you shortly."
It seems easy but just as difficult and I have to do it in VB. any help is appreciated..
I've started working on the script:
Sub SalesEmailReply()
Dim StrMail As String
Dim Main1 As Outlook.MailItem
Dim Reply As Outlook.MailItem
Set Main1 = Application.ActiveExplorer.Selection(1)
Set Reply = Main1.Reply
Main1.ReceivedByName = ""
Main1.Subject = ""
Reply.To.Add Original
Reply.Subject = "Sales Tag xxxx"
Reply.Body = "type response in html"
Reply.Display
Reply.Send
End Sub
I need help getting started with creating a macro in outlook with conditions of:
- recieve an email from (E-Mail Removed)
- read the subject link that contains "Important Notice"
- auto-reply back to them with a format "Hey, thanks for your email. Give us 1-2 business days, we will get back to you shortly."
It seems easy but just as difficult and I have to do it in VB. any help is appreciated..
I've started working on the script:
Sub SalesEmailReply()
Dim StrMail As String
Dim Main1 As Outlook.MailItem
Dim Reply As Outlook.MailItem
Set Main1 = Application.ActiveExplorer.Selection(1)
Set Reply = Main1.Reply
Main1.ReceivedByName = ""
Main1.Subject = ""
Reply.To.Add Original
Reply.Subject = "Sales Tag xxxx"
Reply.Body = "type response in html"
Reply.Display
Reply.Send
End Sub