X
xmm
I'm on Outlook 2003 SP1.
Here's what I have:
4 pop email accounts each associated to a pst file. In this way, I
have 4 separate folders that show up in the "All Mail Folders" pane on
the left:
(e-mail address removed)
(e-mail address removed)
(e-mail address removed)
(e-mail address removed)
I also added one other pst file called "My Outlook.pst". This pst file
does not have an associated email address. Instead, I set it as the
"Deliver new e-mail to the following location:" parameters in the
E-mail account dialog box. In this way, I can keep all my contact,
calendar events, notes, etc. global to all email accounts.
Now 3 of the email accounts are from my ISP (I'm using dslextreme.com).
The 4th email account (me4) is not as you can see from the list.
Just so you know, all 4 email addresses test successfully using the
"Test Account Settings..." button in the email configuration dialog
box. This includes me4. When I test this email, the test message does
show up when I login to the web interface of the outside email provider
do I'm confident there's not a login problem or such.
What works: I choose new email, choose me1 from the Account pull-down
in the email I'm creating, address it to me2 (say) then SEND. The
Outbox of "My Outlook" goes bold which means the new email is ready to
send. Then I choose Send/Receive and the email is successfully sent (I
turned automatic send off for now). When I receive it, the email is
automatically placed in the me2 INBOX and says it's from me1. Perfect!
BTW, I created a script to copy incoming email to the corresponding
account. I'll copy it below in a sec.
What does NOT work: I repeat the process except this time I choose send
with me4 from the Accounts pull-down, address it to me2 (say), then
Send, then Send/Receive. Guess what? It sends successfully but when
it comes into the me2 account, it says it's from me1! Wrong! Can
anyone help me fix this?
Here's the script I wrote (compiled from others work on the net) to
copy incoming email to a folder of the corresponding to account:
Thank you in advance!
Hit alt+F11 then paste this in and you should be set:
Option Explicit
Private WithEvents olSentMailItems As Items
Private Sub Application_Startup()
Dim oNS As NameSpace
Set oNS = Application.GetNamespace("MAPI")
Set olSentMailItems = oNS.GetDefaultFolder(olFolderSentMail).Items
Set oNS = Nothing
End Sub
Private Sub Application_Quit()
' disassociate global objects
Set olSentMailItems = Nothing
End Sub
Private Sub olSentMailItems_ItemAdd(ByVal Item As Object)
Dim oNS As NameSpace
Dim oEmailAccountFolder As MAPIFolder
Dim olSentItemsFolder As MAPIFolder
Dim Message As String
Dim i As Integer
Dim m As MailItem
If Item.Class = olMail Then
Set oNS = Application.GetNamespace("MAPI")
Set olSentItemsFolder =
oNS.Folders(Item.SenderEmailAddress).Folders("Sent Items")
' MsgBox ("Sending item to: " & olSentItemsFolder.FolderPath)
Item.Move olSentItemsFolder
End If
Set oNS = Nothing
End Sub
Here's what I have:
4 pop email accounts each associated to a pst file. In this way, I
have 4 separate folders that show up in the "All Mail Folders" pane on
the left:
(e-mail address removed)
(e-mail address removed)
(e-mail address removed)
(e-mail address removed)
I also added one other pst file called "My Outlook.pst". This pst file
does not have an associated email address. Instead, I set it as the
"Deliver new e-mail to the following location:" parameters in the
E-mail account dialog box. In this way, I can keep all my contact,
calendar events, notes, etc. global to all email accounts.
Now 3 of the email accounts are from my ISP (I'm using dslextreme.com).
The 4th email account (me4) is not as you can see from the list.
Just so you know, all 4 email addresses test successfully using the
"Test Account Settings..." button in the email configuration dialog
box. This includes me4. When I test this email, the test message does
show up when I login to the web interface of the outside email provider
do I'm confident there's not a login problem or such.
What works: I choose new email, choose me1 from the Account pull-down
in the email I'm creating, address it to me2 (say) then SEND. The
Outbox of "My Outlook" goes bold which means the new email is ready to
send. Then I choose Send/Receive and the email is successfully sent (I
turned automatic send off for now). When I receive it, the email is
automatically placed in the me2 INBOX and says it's from me1. Perfect!
BTW, I created a script to copy incoming email to the corresponding
account. I'll copy it below in a sec.
What does NOT work: I repeat the process except this time I choose send
with me4 from the Accounts pull-down, address it to me2 (say), then
Send, then Send/Receive. Guess what? It sends successfully but when
it comes into the me2 account, it says it's from me1! Wrong! Can
anyone help me fix this?
Here's the script I wrote (compiled from others work on the net) to
copy incoming email to a folder of the corresponding to account:
Thank you in advance!
Hit alt+F11 then paste this in and you should be set:
Option Explicit
Private WithEvents olSentMailItems As Items
Private Sub Application_Startup()
Dim oNS As NameSpace
Set oNS = Application.GetNamespace("MAPI")
Set olSentMailItems = oNS.GetDefaultFolder(olFolderSentMail).Items
Set oNS = Nothing
End Sub
Private Sub Application_Quit()
' disassociate global objects
Set olSentMailItems = Nothing
End Sub
Private Sub olSentMailItems_ItemAdd(ByVal Item As Object)
Dim oNS As NameSpace
Dim oEmailAccountFolder As MAPIFolder
Dim olSentItemsFolder As MAPIFolder
Dim Message As String
Dim i As Integer
Dim m As MailItem
If Item.Class = olMail Then
Set oNS = Application.GetNamespace("MAPI")
Set olSentItemsFolder =
oNS.Folders(Item.SenderEmailAddress).Folders("Sent Items")
' MsgBox ("Sending item to: " & olSentItemsFolder.FolderPath)
Item.Move olSentItemsFolder
End If
Set oNS = Nothing
End Sub