Adding two files as attechment to an e-mail

[wsuess]

i work with access and want to send an email with two or three files as attachment. How can i add these FILES to my e-mail??

this way makes no sense in my vba code:

Dim stAnhang As Attachments

stAnhang.Add "C:\Dokumente\ts3581\maritim.jpg"
stAnhang.Add "C:\Dokumente\ts3581\adlon.jpg"

Docmd.SendObject >??<, stAnhang, , email-adress

has anyone an idea??

 

[petermeachem]

Something like this

.AttachmentIndex = 0
.AttachmentPosition = 0
.AttachmentName = attach1name
.AttachmentPathName = attach1path


.AttachmentIndex = 1
.AttachmentPosition = 1
.AttachmentName = attach2name
.AttachmentPathName = attach2path Peter Meachem
peter @ accuflight.com

 

[wsuess]

it doesn't work. there is always the error-message with this &quot;with-instruction&quot;. whats this?
how can i use the with-instruction? i looked into my msdn library, but the examples didn't work.
need i a special library under tools | references ??

my head is spinnig around. this darn error makes me crazy ...

 

[johnwm]

I assume you're using a MapiMessages Control.

If so put:

With MAPIMessages1

before Peter's code
and

End With

after it, Let me know if this helps
________________________________________________________________
If you are worried about how to post, please check out FAQ222-2244 first

'There are 10 kinds of people in the world: those who understand binary, and those who don't.'

 

[wsuess]

hi,

yesterday i tried an other way and it worked.
this is the code i tried

Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.MailItem

Set objOutlook = CreateObject(&quot;Outlook.Application&quot

Set objAppt = objOutlook.CreateItem(olMailItem)

With objAppt
.Attachments.Add (&quot;I:\wolle.jpg&quot
.Attachments.Add (&quot;I:\wolle2.jpg&quot
.To = &quot;ts3581&quot;
.Subject = &quot;Betreff&quot;
.Send
End With

But also for all the ideas and solutions : thanx!

 

[kwill]

How do you get around the outlook security dialog?