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

Since you're writing the macro in Word, it knows nothing about Outlook until you tell it. You must make these changes:

1) Add a reference to the Microsoft Outlook library.

2) Declare and instantiate an Outlook.Application object. In a Word macro context, Application is Word.Application, not Outlook.Application.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Robin" wrote in message ...
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...