Greeetings!

I have some code to send mail using VBA that works great at my office, but
unfortunately at home, I need to do a manual "Send/Receive" to get it to
work.

Is there a way I can automatically get Outlook to Send/Receive every time
a new message is ready, or maybe modify this code so it forces a
Send/Receive?

Thanks in advance!

Joey

Sub MailDoc(SubjectLine, MessageBody, Email)

Set myRedMsg = CreateObject("Redemption.SafeMailItem")
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)

myItem.To = Email
myItem.Subject = SubjectLine
myItem.Body = MessageBody

myRedMsg.Item = myItem
myRedMsg.Send

End Sub

See http://www.outlookcode.com/threads.a...essageid=16184 for
some information on that.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Joey Lichtenstein" wrote in message
...
Greeetings!

I have some code to send mail using VBA that works great at my office, but
unfortunately at home, I need to do a manual "Send/Receive" to get it to
work.

Is there a way I can automatically get Outlook to Send/Receive every time
a new message is ready, or maybe modify this code so it forces a
Send/Receive?

Thanks in advance!

Joey

Sub MailDoc(SubjectLine, MessageBody, Email)

Set myRedMsg = CreateObject("Redemption.SafeMailItem")
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)

myItem.To = Email
myItem.Subject = SubjectLine
myItem.Body = MessageBody

myRedMsg.Item = myItem
myRedMsg.Send

End Sub