P
phil neal
Hi all,
This is my fist post so please be gentle....
I am trying to set up a macro to send a custom outlook form (which has
already been created), I have sucesfully set up the part that sends
mail, but it only uses the default mail item (the items.add bit). how
can I set this to use the form ipm.note.summary the form is the same as
default note but gives a custom form when the recipient clicks reply.
Any Help appreciated!
Thanks
Phil
code is below
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem
Dim ToContact As Outlook.Recipient
Set OLF = GetObject("", _
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add ' creates a new e-mail message
With olMailItem
.Subject = "Subject" ' message subject
.ReadReceiptRequested = True ' read confirmation
'.Save ' saves the message for later editing
.Send ' sends the e-mail message (puts it in the Outbox)
End With
This is my fist post so please be gentle....
I am trying to set up a macro to send a custom outlook form (which has
already been created), I have sucesfully set up the part that sends
mail, but it only uses the default mail item (the items.add bit). how
can I set this to use the form ipm.note.summary the form is the same as
default note but gives a custom form when the recipient clicks reply.
Any Help appreciated!
Thanks
Phil
code is below
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem
Dim ToContact As Outlook.Recipient
Set OLF = GetObject("", _
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add ' creates a new e-mail message
With olMailItem
.Subject = "Subject" ' message subject
.ReadReceiptRequested = True ' read confirmation
'.Save ' saves the message for later editing
.Send ' sends the e-mail message (puts it in the Outbox)
End With