Thanks to visit codestin.com
Credit goes to www.scribd.com

Scribd
Upload
250 views2 pages

Outlook Email Automation Script

This VBA code monitors incoming emails in Outlook and automatically forwards non-business emails to a personal email address. When a new email is received, it checks the sender's email domain. If it is not from the company "sapient", it forwards the email to the personal address while prepending a standardized message to explain and request future correspondence be sent directly to that address.

Uploaded by

api-3838888
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
250 views2 pages

Outlook Email Automation Script

This VBA code monitors incoming emails in Outlook and automatically forwards non-business emails to a personal email address. When a new email is received, it checks the sender's email domain. If it is not from the company "sapient", it forwards the email to the personal address while prepending a standardized message to explain and request future correspondence be sent directly to that address.

Uploaded by

api-3838888
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

public withevents myolitems as outlook.

items

public sub application_startup()

' reference the items in the inbox. because myolitems is declared


' "withevents" the itemadd event will fire below.
set myolitems = outlook.session.getdefaultfolder(olfolderinbox).items

end sub

private sub myolitems_itemadd(byval item as object)

on error goto endinghere

dim newmail as outlook.mailitem

dim senderemail as string

dim oldemailbody as string


dim newemailbody as string
dim newsubj as string

' check to make sure it is an outlook mail message, otherwise


' subsequent code will probably fail depending on what type
' of item it is.

if typename(item) = "mailitem" then

'get email address of email address


senderemail = cstr(item.senderemailaddress)

if instr(ucase(senderemail), "sapient") = 0 then

' get itemmail to forward the item just received


set newmail = item.forward

oldemailbody = cstr(item.htmlbody)
newsubj = cstr(item.subject)

newmail.subject = "autore: " + newsubj

newemailbody = "<div align='justify'><font family='verdana, arial'


color='blue'><h3>hello!<br /> &nbsp;&nbsp;this is my business e-mail id. kindly
send me non-business emails on <a
href='mailto:[email protected]'>[email protected]</a> instead of this
one</h3></font></div>"

newemailbody = newemailbody & "<font family='verdana, arial'


color='#999999'><div align='justify'><h3><br /><u>note:</u></h3></div><div
align='justify'><h4><br />&nbsp;&nbsp;&nbsp;this is an autogenerated e-mail, meant
to stop spam on office mail server. <br />&nbsp;&nbsp;&nbsp;i have received ur e-
mail and i'll get back to you soon.<br /> &nbsp;&nbsp;&nbsp;you don't need to
respond to this email. kindly ignore the e-mail, if i asked you to send me e-mails
to this e-mail id.<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; - milan saxena
(<a href='mailto:[email protected]'>[email protected]</a>)<br /><br /><br
/><br /><hr><br /></h4></font></div>"

newemailbody = newemailbody & oldemailbody

'msgbox newemailbody

' address the message


newmail.recipients.add senderemail

newmail.bodyformat = olformathtml
newmail.htmlbody = newemailbody

' send it

newmail.send

end if

end if

endinghere:

end sub

You might also like