Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
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