> Sue, my MVP :-) > Thanks so much, also for clearing up the code. All suggested changes work. > That happens, if you copy and paste from different sources without totally > understanding what you are doing. > > myRecipient.Address gives a weird statement for company internal > recipients, myRecipient.name works better. To keep the code short it would > help greatly to search for certain patterns (department abbreviations e.g. > ENG for engineering). > > If item.Name ?contains? "ENG" Then > Set myPSTSentTemp = myPSTSent.Folders("ENG") > Set item.SaveSentMessageFolder = myPSTSentTemp > End If > > Axel > > > > Sue Mosher [MVP] wrote: > > A glance at the object browser (F2 in Outlook VBA) would show you that > thereis > 18-Jan-10 > > A glance at the object browser (F2 in Outlook VBA) would show you that > there > is no MailItem.Recipient object, as you have in this statement: > > myRecipient = itemMail.Recipient > > Instead, there is a Recipients collection, which you can iterate with a > For > Each ... Next loop to get information about each Recipient in turn: > > For Each myRecipient in itemMail.Recipients > MsgBox myRecipient.Address > ' etc. > Net > > I see lots of other problems with your code: > > 1) This statement should never appear in Outlook VBA code: > > Set myOlApp = CreateObject("Outlook.Application") > > Instead use the intrinsic Application object that VBA exposes: > > Set myOlApp = Application > > 2) Only one Namespace is active per Outloook session, so you do not need > two > separate variables. Replace these statements > > Set myNamespace = myOlApp.GetNamespace("MAPI") > Set myPSTspace = myOlApp.GetNamespace("MAPI") > > with > > Set myNamespace = myOlApp.Session > > 3) This statement is not the correct way to work with the item being sent: > > Set itemMail = myOlApp.ActiveInspector.CurrentItem > > Instead, use the Item object passed by the ItemSend event handler's > procedure signature > > Set itemMail = Item > > Or, better, omit that statement and just replace itemMail with Item > everywhere in your code. > > 4) You do not need a statement like this to resend the item you just sent; > delete this statement: > > itemMail.Send > > -- > Sue Mosher, Outlook MVP > Author of Microsoft Outlook 2007 Programming: > Jumpstart for Power Users and Administrators > http://www.outlookcode.com/article.aspx?id=54 > > Previous Posts In This Thread: > > > Submitted via EggHeadCafe - Software Developer Portal of Choice > Spambot Killer ASP.NET Mailto: Hyperlink Control > http://www.eggheadcafe.com/tutorials/aspnet/9817ba6f-ba00-4523-9097-f0235cdcb480/spambot-killer-aspnet-ma.aspx