Emails versenden mit Access und Outlook (Express)

Computer: Software & Programmierung Microsoft Access
#1

Hallo,

ich habe folgendes Problem.
In einer Datenbank habe ich eine Emailadresse, per Doppelklick auf die Adresse starte ich eine Eingabemaske, wo die üblichen Felder An, CC, Bcc, Betreff und Nachrichtentext eingegeben werden, per VBA versende ich diese Daten dann mit sendobjekt…, kann noch auswählen, ob ich direkt versenden will (also im Hintergrund) oder erstmal Outlook (Express) zur Kontrolle öffne.

Soweit kein Problem, läuft astrein, nur möchte ich jetzt auch noch Dateianhänge einfügen, in meiner Eingabemaske ist dies auch kein Problem, nur kriege ich die per sendobjekt nicht in Outlook rüber.

Meine Frage, wie kriege ich das anders als mit sendobjekt hin, hat jemand eine Idee.

PS: Falls jetzt einer sagt, mach es doch in Outlook. Hintergrund ist, dass ich auf diese Weise die versendeten Emails mit allen Angaben in einer Datenbank speichern will, also den Emailverkehr mit Kunden nachvollziehen will (und zwar in Access und nicht im Outlook)

Danke im Voraus
Peter

#2

Hallo Peter

Für Outlook Express gibt es meines Wissens keine Lösung.

Untenstehende Funktion löst dir das Problem für MS Outlook

Function SendMessage(DisplayMsg As Boolean)
On Error GoTo SendMessage_error
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment

’ Create the Outlook session.
Set objOutlook = CreateObject(„Outlook.Application“)

’ Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
’ Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add(„Peter Tester“)
objOutlookRecip.Type = olTo

’ Set the Subject, Body, and Importance of the message.
.Subject = „Betreff blablabla“
.Body = „Herzliche Grüsse!“ & vbCrLf & vbCrLf
.Importance = olImportanceHigh 'High importance

’ Add attachments to the message.
Set objOutlookAttach = .Attachments.Add(„c:\DeineDatei.txt“)

’ Resolve each Recipient’s name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next

’ display the message before sending
.Display
End With

Set objOutlook = Nothing

SendMessage_exit:

Exit Function

SendMessage_error:
Resume SendMessage_exit

End Function

Gruss Matthias

#3

Oder schau dir vielleicht auch mal bei mir (http://www.kraasch.de/beispiele.htm) das Beispiel „OutlookAttachments“ von Bastian Pinter an.

Gruß aus dem Norden
Reinhard Kraasch (http://www.kraasch.de - Access Tipps & Tricks)

#4

Vielen Dank für euere Hinweis, war unterwegs und habe erst heute nachgeschaut.

Peter