View Single Post
  #1  
Old December 4th 07, 10:29 AM posted to microsoft.public.outlook.program_vba
robin
external usenet poster
 
Posts: 53
Default getting new button to work with wordmail

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...

Ads