Using mapi mail send how do you add an attachment 1

[randy4126]

How would you add an attachment to an email using mapi mail with outlook?

 

[ide]

...
Set myOlApp = CreateObject("Outlook.Application&quot
Set out = myOlApp.CreateObject("Outlook.Application&quot
Set mapi = out.GetNamespace("MAPI&quot
Set male = out.CreateItem(0)
male.Recipients.Add ("blabla@blabla.net&quot
male.Subject = "ThisIsAMail"
male.Body = "ThisIsMyMail'sBody"
male.Attachments.Add ("C:\temp\94.tmp&quot
male.Send
...

ide
B-)

 

[randy4126]

On the script player i am using it wont let me do it that way here is a sample of my code that works but i dont know how to attach the email

Sub MapiSendMail

Dim objSession As Object
Dim objMessage As Object
Dim objRecipient As Object

Dim sProfile As String
Dim sSubjPrmpt As String
Dim sTextPrmpt As String
Dim sEmailPrmpt As String
Dim sMsgTitle As String

sProfile = "Time Warner"

sMsgTitle = "Mapi Macro Example"

Set objSession = CreateObject("mapi.session&quot

objSession.Logon profileName:=sProfile

Set objMessage = objSession.Outbox.Messages.Add

objMessage.Subject = Subject
objMessage.Text = MessageBody

Set objRecipient = objMessage.Recipients.Add

objRecipient.Name = EmailAddress
objRecipient.Resolve

objMessage.Send showDialog:=False
MsgBox "Message sent successfully!"

objSession.Logoff
End Sub