e-mail mit mehrere Anhänge aus access versenden
Gunter Avenius
Gesendet: 02.03.12 21:25
Betreff: RE: e-mail mit mehrere Anhänge aus access versenden



Regular

Beiträge: 66
2525
Ort: Röthenbach a.d.Peg.
Hallo,

ein kleiner Code schnipsel...

Public Function Mail_ueber_Outlook()
Dim MyMailApp As Object
Dim MyItem
Set MyMailApp = CreateObject("Outlook.Application")
Set MyItem = MyMailApp.CreateItem(0)
MyItem.Recipients.Add "email@domain.de"
MyItem.Subject = "Order: " & "123"
MyItem.Attachments.Add "c:\export1.txt"
MyItem.Attachments.Add "c:\export2.txt"
MyItem.Body = "Anbei eine neue Bestellung!" & vbCrLf & vbCrLf & "Bla Blub...."
MyItem.Display
MyItem.Send
Set MyItem = Nothing
Set MyMailApp = Nothing
End Function
-----
Gruß
Gunter
--

Access FAQ: http://www.donkarl.com

http://www.avenius.de - http://www.AccessRibbon.de
http://www.ribboncreator.de - http://www.ribboncreator2010.de
http://www.ribboncreator2016.de - http://www.ribboncreator2019.de
Top of the page Bottom of the page