SendMailAttach + Subject 1

[Molenski]

Hi there,

Just wondering if anyone can help. Am trying to create a macro in Word 97 that will simply attach the document you are working on to an Outlook 98 email message with a subject line and a name in the 'To' field but doesn't actually send it.

I am using the...

Options.SendMailAttach = True
ActiveDocument.SendMail

...as opposed to the Routing Slip method but I can't seem to work out how to get a subject line and a name in the 'To' field.

Can someone please help or I'm going to eat my own arms off.

Thanks a lot.

Molenski
As my bessie bud Kev always says - "Get involved!!!"

 

[Bowers74]

Try this code, I'm not too sure if it will work in Office '97 though, but it's worth a try.

Sub Send_Email()
' Be Sure to set a reference to MS Outlook before using this procedure.
' Go to Tools->References and select the Outlook library from the list and press OK.
Dim newOL As New Outlook.Application
Dim newMail As MailItem
Set newOL = New Outlook.Application
Set newMail = newOL.CreateItem(olMailItem)
With newMail
    .To = "noone@nowhere.com"
    .Subject = "This is a Test"
    .Body = "This is a test Email sent to you from Excel. " & _
        "Please, do not reply to this Email."
    .Display ' This will display the Email for editing
    ' .Send ' This will send the Email directly
End With
Set newMail = Nothing
Set newOL = Nothing
End Sub

I hope this works! And I hope this helps!

Good Luck!



Peace!

Mike

Never say Never!!!
Nothing is impossible!!!

 

[Molenski]

Hi Mike,

Thanks for getting back......not sure what you mean by this....'select the Outlook Library'.

I only have a reference to the 'MS Outlook Object Model' in Tools/References.

Could you let me know if I'm just being a dummy!!!!!!

Thanks again.

Molenski
As my bessie bud Kev always says - "Get involved!!!"

 

[Molenski]

Mike, have sorted it and it works great.

Thanks a lot for your help - youve got a star!!!

Molenski
As my bessie bud Kev always says - "Get involved!!!"