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)
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