R
Robin
Hi
I have a macro that I have linked to a customized button (code below). It
effectively sends the email to a sub-folder in the sent items called "Temp
Sent". I would like to use Word as my editor, but this does not work. I
changed the email editor to Word 2003, opened a new email, added a new button
which is linked to this macro but Outlook does not like this (error: "compile
error, user defined type not defined"). Have I gone about this the wrong way
or is there a way of fixing this?
Public Sub SendAndDelete()
Dim objFolder As Outlook.MAPIFolder
Dim oSent As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace
Dim obj As Object
Dim Mail As Outlook.MailItem
Set obj = Application.ActiveInspector.CurrentItem
Set Mail = obj
Set objNS = Application.GetNamespace("MAPI")
Set oSent = objNS.GetDefaultFolder(olFolderSentMail)
Set objFolder = oSent.Folders("Temp Sent") 'Assume this is a mail folder
Mail.Move objFolder
Mail.Send
Set objFolder = Nothing
Set oSent = Nothing
Set objNS = Nothing
End Sub
Thanks a ton...
I have a macro that I have linked to a customized button (code below). It
effectively sends the email to a sub-folder in the sent items called "Temp
Sent". I would like to use Word as my editor, but this does not work. I
changed the email editor to Word 2003, opened a new email, added a new button
which is linked to this macro but Outlook does not like this (error: "compile
error, user defined type not defined"). Have I gone about this the wrong way
or is there a way of fixing this?
Public Sub SendAndDelete()
Dim objFolder As Outlook.MAPIFolder
Dim oSent As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace
Dim obj As Object
Dim Mail As Outlook.MailItem
Set obj = Application.ActiveInspector.CurrentItem
Set Mail = obj
Set objNS = Application.GetNamespace("MAPI")
Set oSent = objNS.GetDefaultFolder(olFolderSentMail)
Set objFolder = oSent.Folders("Temp Sent") 'Assume this is a mail folder
Mail.Move objFolder
Mail.Send
Set objFolder = Nothing
Set oSent = Nothing
Set objNS = Nothing
End Sub
Thanks a ton...