Script that automatically replies to email based on rules.

Status
Not open for further replies.

angelaba

Member
Outlook version
Outlook 2010 32 bit
Email Account
IMAP
I am very new to VBA (2 days) and would to like automate responses that goes to a specific outlook mail box based on rules set in that box. The response is a script I created. Currently the script can reply to an email if that mail is selected. However, I would like it to be triggered whenever a mail comes in.

I found some text online which does that but i'm unable to format it to my use.

This is what I have:

Sub FwdSelToAddr()

Dim objOL As Outlook.Application

Dim objItem As Object

Dim objFwd As Outlook.MailItem

Dim strAddr As String

On Error Resume Next

Set objOL = Application

Set objItem = objOL.ActiveExplorer.Selection(1)

If Not objItem Is Nothing Then

empID = ParseTextLinePair(objItem.Body, "Employee ID:")

leavCat = ParseTextLinePair(objItem.Body, "Leave Category:")

leavFre = ParseTextLinePair(objItem.Body, "Leave Frequency:")

leavRe = ParseTextLinePair(objItem.Body, "Leave Reason:")

casSta = ParseTextLinePair(objItem.Body, "Case Status:")

staDat = ParseTextLinePair(objItem.Body, "Start Date:")

leavHr = ParseTextLinePair(objItem.Body, "Leave Hours:")

appxLhr = ParseTextLinePair(objItem.Body, "Approximate Daily Leave Hours:")

deTal = ParseTextLinePair(objItem.Body, "Details:")

enDat = ParseTextLinePair(objItem.Body, "End Date:")

If empID <> "" Then

Set objFwd = objItem.Reply

objFwd.Subject = "Leave Case Submitted"

objFwd.HTMLBody = "Employee ID: " & empID & "<bt><br>" & "Leave Category: " & leavCat & "<bt><br>" & "Leave Reason: " & leavRe & "<bt><br>" _

& "Leave Frequency: " & leavFre & "<bt><br>" & "Case Status: " & casSta & "<bt><br>" & "Start Date: " & staDat & "<bt><br>" & "End Date: " & enDat & "<bt><br>" _

& "Leave Hours: " & leavHr & "<bt><br>" & "Approximate Daily Leave Hours: " & appxLhr & "<bt><br>" & "Details: " & deTal

objFwd.Send

Else

MsgBox "Could not extract string from message."

End If

End If

Set objOL = Nothing

Set objItem = Nothing

Set objFwd = Nothing

End Sub

Function ParseTextLinePair _

(strSource As String, strLabel As String)

Dim intLocLabel As Integer

Dim intLocCRLF As Integer

Dim intLenLabel As Integer

Dim strText As String

intLocLabel = InStr(strSource, strLabel)

intLenLabel = Len(strLabel)

If intLocLabel > 0 Then

intLocCRLF = InStr(intLocLabel, strSource, vbCrLf)

If intLocCRLF > 0 Then

intLocLabel = intLocLabel + intLenLabel

strText = Mid(strSource, _

intLocLabel, _

intLocCRLF - intLocLabel)

Else

intLocLabel = _

Mid(strSource, intLocLabel + intLenLabel)

End If

End If

ParseTextLinePair = Trim(strText)

End Function
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
N Outlook 2021 'Run Script" Rules? Outlook VBA and Custom Forms 4
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
W Designer Form 2013 and Script ? how ? Outlook VBA and Custom Forms 1
G print attachment straight away; working script edit not working Outlook VBA and Custom Forms 0
G Save attachment run a script rule Outlook VBA and Custom Forms 0
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
G Script does not exist Outlook VBA and Custom Forms 0
G Trigger script without restaring outlook Outlook VBA and Custom Forms 7
A VBA Script - Print Date between first email in Category X and last email in Category Y Outlook VBA and Custom Forms 3
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
L Need help modifying a VBA script for emails stuck in Outbox Outlook VBA and Custom Forms 6
L VB script only runs manually Outlook VBA and Custom Forms 5
E Having some trouble with a run-a-script rule (moving mail based on file type) Outlook VBA and Custom Forms 5
D.Moore VB script to Digitaly Sign newly created outlook message Outlook VBA and Custom Forms 2
Aussie Rules Run a Script on an Incoming Email OK and then the Email reverts Outlook VBA and Custom Forms 0
D.Moore VBA script fail after Office 365 update Using Outlook 8
M Outlook 2013 Script Assistance - Save Opened Link with Subject Added Outlook VBA and Custom Forms 1
F Script for zip file attachment Outlook VBA and Custom Forms 1
S Change VBA script to send HTML email instead of text Outlook VBA and Custom Forms 3
Y Outlook 2013 Run A Script Outlook VBA and Custom Forms 4
Z Script to set account? Using Outlook 0
dweller Outlook 2010 Rule Ignores VBA Script Outlook VBA and Custom Forms 2
N VBA Script to Open highlighted e-mail and Edit Message Outlook VBA and Custom Forms 5
B Outlook rule run a Script doesn't work Outlook VBA and Custom Forms 1
J Calling a Public sub-routine from the script editor via VB script Outlook VBA and Custom Forms 4
K Outlook Archive to PST Files by Date Range VBA Script? Outlook VBA and Custom Forms 1
Peter H Williams Enable script containing VBA Outlook VBA and Custom Forms 12
H VB script in outlook form doesn't work anymore Outlook VBA and Custom Forms 2
A Script to fetch data from mails in restricted collection and sending them to excel Using Outlook 1
B Wanting to run a script that will filter any body that has a russian link in it. Outlook VBA and Custom Forms 5
Bri the Tech Guy Registry Tweak to make "Run a Script" Action Available Outlook VBA and Custom Forms 2
V VB script code to save a specific email attachment from a given email Outlook VBA and Custom Forms 14
Bri the Tech Guy Run Script rule not running for newly arriving messages Outlook VBA and Custom Forms 25
M Subject Line Automation - Trigger Script Delayed Outlook VBA and Custom Forms 2
Q Script to create a pst file for Archiving Using Outlook 1
Vijay Error in rule- Run a script Using Outlook 1
R VBA Script Quick Parts Using Outlook 1
Vijay Run script doesn't work in outlook Using Outlook 1
Q VBA Script to move item in secondary mailbox Outlook VBA and Custom Forms 2
Diane Poremsky Run a Script Rule: Send a New Message when a Message Arrives Using Outlook 2
F Avoid sending duplicate using Outlook script Outlook VBA and Custom Forms 2
oliv- How to Run a Script IN AN ADDIN with Outlook's Rules and Alerts Outlook VBA and Custom Forms 2
L Run a Script Rule doesn't work Using Outlook 5
N Outlook script to forward emails based on senders' address Outlook VBA and Custom Forms 2
S using script rule to save attachments on arrival Outlook 2010 Outlook VBA and Custom Forms 9
X Outlook script to run excel data Outlook VBA and Custom Forms 1
N VBA Script to Send Automatic Emails from Outlook 2010 Outlook VBA and Custom Forms 1
Davzell Change default pop3 account with script, prf or registery ? Outlook VBA and Custom Forms 0
D RUN SCRIPT WHEN OUTLOOK IS CLOSE Outlook VBA and Custom Forms 1
L Cannot run script from rule Outlook VBA and Custom Forms 7

Similar threads

Top