Get my Exchange Server mail offline

[ilya2004]

I am trying to get my exchange server mail on my Android, and my company doesn't support Android on the exchange server. I was thinking that it would be good enough to forward my email to a gmail account so I can pick it up there. I tried setting it up via auto-fowarding, but the exchange service blocks the server based auto-forward.

I was thinking I could do some kind of a macro to have my machine foward each piece of mail or try to install an IMAP connection and have my machine copy every piece of mail into the inbox folder of the IMAP.

I tried a few macro's online and couldn't get them to work, and I can't leave my IMAP connection open while I am connected to the VPN.

Does anyone have any ideas either how to get my ideas to work or any other ideas of their own?

 

[Derek Brown]

As you found out, Exchange Server would not normally forward to an external email account. I believe that the administrator could override it but it would not be recommended.
You could do it from Outlook VBA but Outlook must be running when the email is received. I have an Outlook rule that will forward an email to another email account on a PC that is always 'ON' and that forwards (using Outlook 2007 VBA) to my home email account. That works whether or not my PC is running.
What version of Outlook are you using?

 

[ilya2004]

I'm using 2010. I am fine having the machine running the whole time. How do I set a PC based rule to forward all my mail?

 

[Derek Brown]

Give the following a try .....
Add the following to the "ThisOutlookSession" class module:

Option Explicit
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim oItem As Object
Dim oMail As Outlook.MailItem
Dim oNS As Outlook.NameSpace
Dim aItems() As String
Dim lngKount As Long
'
aItems = Split(EntryIDCollection, ",")
Set oNS = Application.GetNamespace("MAPI")
'
For lngKount = LBound(aItems) To UBound(aItems)
    Set oItem = oNS.GetItemFromID(aItems(lngKount))
    If oItem.Class = olMail Then
        Set oMail = oItem
        If oMail.Subject = "Test" Then
            Call ForwardEmail(oMail)
        End If
    End If
Next lngKount
'
Set oNS = Nothing
Set oItem = Nothing
Set oMail = Nothing
'
End Sub

and the following to a code module:

Option Explicit
Private Const cForwardTo As String = "yourname@yourdomain.com "
Sub ForwardEmail(oReceivedItem As MailItem)
Dim objMail As Outlook.MailItem
Dim oForward As Outlook.MailItem
    '
    On Error GoTo Error_Para
    '
    Set objMail = Application.Session.GetItemFromID(oReceivedItem.EntryID)
    '
    Set oForward = objMail.Forward
    oForward.Subject = objMail.Subject
    oForward.Body = "Forwarded email:-" & vbCrLf & vbCrLf & objMail.Body
    oForward.Recipients.Add (cForwardTo)
' Send:
    'MailItem.Send
' OR Save:
    oForward.Save
    '
    Set oForward = Nothing
    Set objMail = Nothing
    Exit Sub
Error_Para:
    'MsgBox "Error " & Err.num & " (" & Err.Description & ")"
End Sub

You will see that it is currently set to respond to emails with the subject of "Test" and will save the 'forwarded' email in the Drafts folder - so you will need to make changes as required. Also look at adding some error-trapping.
If you have a problem with Outlook security, have a look at Self-signed Certificates:
http://www.howto-outlook.com/howto/selfcert.htm

 

[ilya2004]

Fantastic, works perfectly. I only had to change the line:

MailItem.Save

to

oForward.Save

, which I assumed was a typo.

Thanks a lot for your help!

-Ilya

 

[Derek Brown]

That's OK - pleased that it works for you.
Yes, I had not changed the "MailItem.Send" commented line as I only ran it in test mode where the 'save' option was the thing to do.