HOW DO I FORWARD AN EMAIL WITH MACRO using an email that in the body of another email

Status
Not open for further replies.

Sabastian Samuel

New Member
Outlook version
Outlook 2016 64 bit
Email Account
IMAP
I WOULD REALLY APPRECIATE IT IF SOMEONE COULD HELP ME OUT. IVE BEEN TRYING TO UNDERSTAND MACRO LANGUAGE FOR AGES AND I CANT SEEM TO GET ANYWHERE!
HERE IS WHAT I WANT TO DO. I hope this makes sense.

----

I want a macro to read every email that gets sent to my inbox.

IF the subject line begins with "Lost Property at"
THEN extract the whole body of the email as a string - string name "BODY"

SPLIT the the string at the point where "\split" is in the text

I should have these strings only now

BODY_1
BODY_2


i dont think there is a chance of \split being in the body more than once. but if it is, i would want to isolate BODY_1 and concatenate the rest together

I now want the macro to write an email:

to: BODY_1
subject
: the subject of the original email
body: BODY_2

SEND
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
you can use it either in a run a script rule or watch the folder and process it using an itemadd macro.
Outlook's Rules and Alerts: Run a Script
How to use an ItemAdd Macro


this snippet will do what you need (i think the array code is correct, but it might need tweaked)-

if lcase(item.subject) = "lost property" then
Dim BodyArray() As variant

BodyArray() = (item.body, "\split", 2)

--create new message --
Create a new Outlook message using VBA

then use this:
newMsg.to = bodyarray(1)
newMsg.body = bodyarray(2)
newMsg.send

end if
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
you need to set the item object to a message - this will use the selected message (great for testing - change it to use incoming messages later)

sub lostpropertyforward()
Set Item = application.ActiveExplorer.Selection.Item(1)
' rest of your code
end sub
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
A Forward Outlook Email by Filtering using Macro Rule Outlook VBA and Custom Forms 44
W Macro to forward email Outlook VBA and Custom Forms 2
divan Macro to format email in a certain folder then forward to email address Using Outlook 3
J Automatically forward email and apply template Outlook VBA and Custom Forms 0
O Forward a email with modified body Automatically. Outlook VBA and Custom Forms 0
C How to rename subject line and forward the email Outlook VBA and Custom Forms 2
R Error when trying to forward current email item Outlook VBA and Custom Forms 7
B Forward every other email in Outlook 2013 Outlook VBA and Custom Forms 2
D Disable or hide "reply" and "reply to all" and "forward" in email from access vba Outlook VBA and Custom Forms 1
Brostin Forward a mail to the address listed in the email text Outlook VBA and Custom Forms 1
A Creating an outlook rule to forward an email with a specific message Using Outlook 1
D How to forward each email x minutes after it arrives in inbox and hasn't been moved or deleted? Using Outlook 1
mikecox Forward email to another address; not with Rules Using Outlook 3
D forward email with attachment using .oft Using Outlook 3
R Auto-create receipt from email and forward to payer Using Outlook 3
C Unable to forward email with URL Using Outlook 2
M rule to change subject, pull email addresses from body, and forward with templ Using Outlook 14
S Rule to Auto-forward/re-direct a specific incoming email to a group via BCC? Using Outlook 1
A Outlook 2010 - Want to Have All Email Reply Forward as Rich Test Using Outlook 7
P email arrows - respond and forward Using Outlook 1
T Using A Rule To Forward An Email Containing Specific Word Using Outlook 5
D I would like to be able to Forward a Template to a specified email address on receiving an email in the Inbox. Using Outlook 1
L Automatically forward ALL outgoing/sent emails to another email adddress (not just for a specific distribution list) Using Outlook 2
T Exchange - forward email when user is not logged on Using Outlook 1
I Outlook 2007 Out of office Forward of email sent to a Distribution List member Using Outlook 1
O Can't send, reply, or forward email. Using Outlook 2
A Forward an entire email folder including the folder structure Using Outlook 2
P no text in forward email Using Outlook 2
A Outlook crashes and restart when I send, reply or forward an email Using Outlook 1
J Can not reply to or forward email from outlook but can send email started from new Using Outlook 1
O Email tool bar greyed out. Can't send or forward email. Using Outlook 1
R Exchange Powershell getting the forward email address for mailboxes Exchange Server Administration 2
A forward all email to another smtp server? Exchange Server Administration 5
E How to get reply/forward arrows on email list Using Outlook 6
B Fonts in my outlook email have suddenly been reduced when I forward or respond to an email. also fo Using Outlook 1
S how to auto forward sent mail to another email id Using Outlook 2
A How can I forward 'everyother' incoming message from one email account to two additional accounts? Complicated!!!! Using Outlook 4
N Can´t respond to an email (reply, forward etc.) Using Outlook 7
E Can I set a rule in OWA/OUTLOOK to forward all my incomming e-mails to another email. Using Outlook 4
B Outlook 2010 auto-forward deletes message text from forwarded email Using Outlook 7
L Forward Email and Insert Sender's Email address in body Outlook VBA and Custom Forms 3
M Forward email as insert from button Outlook VBA and Custom Forms 1
J Rule to Forward email but delay delivery 10 minutes Outlook VBA and Custom Forms 2
S forward email Outlook VBA and Custom Forms 1
M In Outlook Calendar remove the buttons: 'Today' and '<' (Back a day) and '>' (Forward a day) that are below the Ribbon and above the calendar display. Using Outlook 0
M Outlook macro to automate search and forward process Outlook VBA and Custom Forms 6
G Missing forward/replied icons Using Outlook 2
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
B Automatically Forward Emails and Remove/Replace All or Part of Body Outlook VBA and Custom Forms 8
M Forward Appointment as BCC with VBScript Outlook VBA and Custom Forms 7
Similar threads


















































Top