Send Multiple Email command in Macro

[saturnin02]

Hi, I have a Macro as such:

Sub ChangeDelDate()
Dim fld As MAPIFolder
Dim objItem As MailItem

Set fld = Application.ActiveExplorer.CurrentFolder
Set colMsgs = fld.Items

For Each objItem In colMsgs
If objItem.Class = olMail Then
With objItem
.DeferredDeliveryTime = "07/07/04 02:30 PM"
.Save
.Send
End With
End If
Next
End Sub

The command .Send only sends one email at a time and I get a message asking
me to confirm the send.
Can I modify the .Send to a Send ALL so that ALL of the email in the
selected folder get sent as a batch instead of one by one with the confirm
after each?

I may not need to .Send command but my feeling was that if I just change the
dates, I am not sure that OL will send without the .Send command.

Tx a lot for your suggestions.

Sat

 

[Sue Mosher [MVP-Outlook]]

No. See http://www.outlookcode.com/d/sec.htm for your options with regard to
the "object model guard" security in Outlook 2000 SP2 and later versions.

 

[saturnin02]

Somebody finally replied...!
Well, I have found out that there is a free utility (Say Yes or Click Yes)
that one can download that will do the job of clicking. I haven't installed
it yet.
I will look at the link you provided below as well as I think it provides
good info on the subject.
Tx for taking the time to reply.
S