Here is another option. I used to use this code to perform the same task
until the outlook security update was released. This routine still works,
you just have to suffer through the outlook security warning if you don't
have a way to sign macros.
Hope this helps.
Sub ResendMail()
Dim objMail As Outlook.MailItem
Dim Inspect As Outlook.Inspector
Dim cmdBar as Office.CommandBarControl
Dim iCntr as Integer
'Close all Inspectors prompting to save changes if there are any.
For Each Inspect In Application.Inspectors
Inspect.Close olPromptForSave
Next
'Open a new inspector for each message in the selection.
'This assumes the active explorer is the sent items folder and the
actions toolbar for an inspector
'has not be customized.
For Each objMail In Application.ActiveExplorer.Selection
Set Inspect = objMail.GetInspector()
Inspect.Display
Set cmdBar = Inspect.CommandBars("Menu Bar").Controls("Actions")
Set cmdBar = cmdBar.Controls.Item("Resend This Message...")
cmdBar.Execute
Inspect.Close olDiscard
Next
'Now loop through the inspectors opened above and resend the messages.
For iCntr = Application.Inspectors.Count To 1 Step -1
Application.Inspectors(iCntr).CurrentItem.Send
Next
End Sub
Diane Poremsky said:
VBA and send keys...
--
Diane Poremsky [MVP - Outlook]
Author, Teach Yourself Outlook 2003 in 24 Hours
Coauthor, OneNote 2003 for Windows (Visual QuickStart Guide)
Author, Google and Other Search Engines (Visual QuickStart Guide)
Join OneNote Tips mailing list:
http://www.onenote-tips.net/
Vote for your favorite Outlook and Exchange utilities in the
Slipstick Ratings Raffle at
http://www.slipstick.com/contest/
saturnin02 said:
Diane,
I know that but it only works for individual emails--I do not want to
resend
20 emails by opening them up 1 by 1 and clicking "Send" each time.
That is precisely what my post is about--how to avoid that....
Is there a way to "automate" the sending of several messages?
