Regular
Beiträge: 66
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
|
