Outlook VBA macro to "copy" incoming email

Question

0.00/5 (No votes)

See more:

I am looking for code to take all incoming emails to my outlook email and "copy" to my gmail acct. I originally had a script to fwd all emails, but it's a major pain to change the email address, and then the fwd info is in the body, etc. etc.

Ultimately, I would like a script to copy to another email without the fwd (or at least keeping it from the original sender instead of everything being from me) and be able to mark the email as read in my gmail acct if I read it through outlook (or both ways if that's possible)

thank you!

Posted 30-Jul-13 2:32am

bigazonk

Add a Solution

Comments

[no name] 30-Jul-13 8:35am

Okay... and what have you tried? What is problem with the code that you have written?

bigazonk 31-Jul-13 8:25am

This works. There's really no problem other than I don't want a fwd sent to my email, i want a copy. I am often not at my desk and need to reply to an email and obviously if i hit reply, it would reply to myself, but more times than not, there are several people listed on the email chain, so i would have to manually enter all names.

and i would also like to have them marked read if they are read within one or the other emails

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add "XXXXXXXXXX@gmail.com"
myFwd.Send
Set myFwd = Nothing

End Sub

Maciej Los 30-Jul-13 8:51am

What version of MS Outlook?

bigazonk 31-Jul-13 8:13am

outlook 2010

Maciej Los 31-Jul-13 8:38am

Have you seen my answer? Have you tried to do it yourself?

bigazonk 31-Jul-13 9:38am

i have tried myself, but only know ways to fwd, don't know the "code" for copy

Maciej Los 31-Jul-13 9:52am

Have you tried to create new mail based on existing one and set MailItem.Sender Property (Outlook)[^]?
Please, follow the links i've been posted in my answer.

Maciej Los 31-Jul-13 9:05am

See my updated answer to find a method to mark Outlook mail as "has been read".

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2013-07-30T09:40:00

Solution 1

[EDIT]
Summarizing the discussion based on bigazonk's comments...

There is probably not possible to send email as another person. Why? See this: Send an e-mail message on behalf of someone else[^]

The only way is to forward a mail message. ;(

Example macro for "original forwarding", assuming that person has a permission to send mail on behalf of someone else, should looks like:

VB

Option Explicit

Sub PushMailToMe()
Dim srcMi As MailItem, dstMi As MailItem
Dim fld As Folder, att As Attachment

On Error GoTo Err_PushMailToMe

Set fld = Application.Session.GetDefaultFolder(olFolderInbox)
For Each srcMi In fld.Items
    If srcMi.UnRead = False Then GoTo SkipMail
    Set dstMi = Application.CreateItem(olMailItem)
    With dstMi
        .Sender = srcMi.Sender
        .Subject = srcMi.Subject
        .To = "mymail@domain.com"
        .CC = srcMi.CC
        .BodyFormat = olFormatHTML
        .HTMLBody = srcMi.HTMLBody & vbCrLf & vbCrLf & "Original forwarding by PushMailToMe (year: 2013)"
        For Each att In srcMi.Attachments
            .Attachments.Add att
        Next
        .Send
    End With
SkipMail:
Next

Exit_PushMailToMe:
    On Error Resume Next
    Set srcMi = Nothing
    Set dstMi = Nothing
    Exit Sub

Err_PushMailToMe:
    MsgBox Err.Description, vbExclamation, Err.Number
    Resume Exit_PushMailToMe

End Sub

Cheers!
Maciej Los

[/EDIT]

Posted 30-Jul-13 9:40am

Maciej Los

Updated 5-Aug-13 20:16pm

v4

Comments

Raja Sekhar S 1-Aug-13 2:25am

Nice Links.... +5!

Maciej Los 1-Aug-13 2:27am

Thank you, Raja ;)

bigazonk 1-Aug-13 9:43am

i have tried this, but it's not showing up in the script when trying to run the rules

Maciej Los 1-Aug-13 11:41am

It's just an example. You need to change it to your needs. I haven't access to ms outlook and can't test it by myself. Above example doesn't send any mail, it makes a copy of last mail and display it.

bigazonk 1-Aug-13 12:22pm

ugh, ok. I'm sorry, I don't do code, so this is all confusing to me! thanks tho

Maciej Los 1-Aug-13 14:34pm

If your problem is solved, please, mark this answer as solved and vote-up ;)

bigazonk 2-Aug-13 7:44am

my problem is not resolved...i still don't have a working script that I can figure out. I am not good with code, that is why i came here looking for help. i have attempted it myself. if i was familiar with it, i could have done it myself without asking. i will look elsewhere i guess. thanks anyways

Maciej Los 2-Aug-13 8:23am

I gave you a basic information. Please, don't be lazy and try to write proper code. Don't expect from someone that do your job. ;)
All you need to to is to loop through the collection of unreaded items.

bigazonk 2-Aug-13 12:52pm

it's not a matter of being lazy, it's not my forte, never has been and probably never will be. that's why i googled to find a forum specializing in code, hoping for some assistance --- afterall, i thought that's what forums are for...getting assistance and helping out. i have read through the provided links, but still am not quite sure WTH i am doing...it's like picking up instructions in spanish or chinese, it's foreign to me.

Maciej Los 2-Aug-13 13:09pm

OK, i understand you now...
I promise to help you, but not today and tomorrow, OK?

bigazonk 2-Aug-13 13:23pm

ok, that's fine. i'm leaving work in a few and then won't think about it until monday morning! :)

bigazonk 5-Aug-13 12:30pm

happy Monday :) just when you get a sec....

Maciej Los 5-Aug-13 17:30pm

In Poland is almost thuesday (~23:30). In a few moments i'm going to bed. ;) Do you agree to continuing discussion tomorrow? I'll promise to not forget about you...

Maciej Los 6-Aug-13 2:17am

Check updated solution now ;)

bigazonk 6-Aug-13 12:21pm

what's the "Original forwarding by PushMailToMe (year: 2013)" ????

do i need to edit this as well?

Maciej Los 6-Aug-13 15:34pm

There is something special ;)
No, you don't ;)

bigazonk 6-Aug-13 15:38pm

i am running outlook 2010. i only changed the info on my email address and left everything else the same and get this error: type mismatch and then I get an email in my box saying undeliverable: Delivery has failed to these recipients or groups:

XXXXXX, XXXXXXX
You can't send a message on behalf of this user unless you have permission to do so. Please make sure you're sending on behalf of the correct sender, or request the necessary permission.

????

ugh....so frustrating!!

Maciej Los 6-Aug-13 15:47pm

Have you read my answer from begining to to end? I wrote there: There is probably not possible to send email as another person. Why? See this... The only way is to forward a mail message.