WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE and Outlook
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Email Forwarder


Here is some code can be used to forward all email from your default mailbox to whatever address you specify
forwardaddr = "soandso@somewhere.com"

olFolderInbox=6
MSapp = ObjectOpen ("Outlook.Application")
oNameSpace = MSapp.GetNamespace("MAPI")

;Grab each message and forward it (including attachments)
oFolder = oNameSpace.GetDefaultFolder(olFolderInbox)
oFolderItems=oFolder.Items
msgcount = oFolderItems.count

For a = 1 to msgcount
   ;Grab all attachments
	oMessage = oFolderItems.Item(a)
	;Create forwarded message object
	objForward = oMessage.Forward
	;Set Forward recipient
	objForward.Recipients.Add(forwardaddr)
   ;Send Forwarded email
	objForward.Send
	ObjectClose(objForward)
	ObjectClose(oMessage)
Next

ObjectClose(oFolderItems)
ObjectClose(oFolder)
ObjectClose(oNameSpace)
ObjectClose(MSapp)

Article ID:   W16583
File Created: 2005:02:18:12:21:32
Last Updated: 2005:02:18:12:21:32