S
Sue Lusk
I am using the following to create a new email with an
attachent. The other thing I need to do is set the CONTENT-
TYPE, CONTENT-DISPOSITION and CONTENT-TRANSFER-ENCODING
internet headers. Does anyone know how to do this?
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder
(olFolderInbox)
Set myItem = myOlApp.CreateItem(0)
Set myRecipient = myItem.Recipients.Add("some email
address")
Set myAttachments = myItem.Attachments
myAttachments.Add "my file name", olByValue, 1, "..."
myItem.Subject = "........"
myItem.Body = "...."
attachent. The other thing I need to do is set the CONTENT-
TYPE, CONTENT-DISPOSITION and CONTENT-TRANSFER-ENCODING
internet headers. Does anyone know how to do this?
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder
(olFolderInbox)
Set myItem = myOlApp.CreateItem(0)
Set myRecipient = myItem.Recipients.Add("some email
address")
Set myAttachments = myItem.Attachments
myAttachments.Add "my file name", olByValue, 1, "..."
myItem.Subject = "........"
myItem.Body = "...."