Hallo Leute,
In einer Access Datenbank habe ich einen Button, mit dem ich einen Snapshot Bericht und verschiedene Anhänge (Pfade zu den Dateien werden zuvor im Formular ausgewählt) per Outlook verschicken kann. Hier ist der Code welcher dazu verwendet wird:
_Public Function EmailVersenden1(email As String, Optional Projekt)
Dim olApp As Outlook.Application
Dim olNamespace As NameSpace
Dim objMailItem As MailItem
Dim objFolder As mapiFolder
Dim rs As DAO.Recordset
Set olApp = CreateObject(„Outlook.Application“)
Set olNamespace = olApp.GetNamespace(„MAPI“)
Set objFolder = olNamespace.GetDefaultFolder(olFolderInbox)
Set objMailItem = objFolder.Items.Add(olMailItem)
With objMailItem
.To = email
.Subject = „Document Incorporation Recommendation“
.Body = „This is an automated message - please refer to attachments“
If Not IsMissing(Projekt) Then
If fnErstelleReport(Projekt) Then
.Attachments.Add temp_Pfad & „Incorporation Recommendation.snp“
End If
Set rs = CurrentDb.OpenRecordset( _
"Select Mail " & _
„From tbl_Mail " & _
„Where Projekt=“ & Projekt & _
" AND Nz(Mail)’’“)
Do While Not rs.EOF
If Dir(rs!Mail) „“ Then
.Attachments.Add „“ & rs!Mail & „“
End If
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
End If
.Display
End With
olApp.ActiveWindow
End Function_
Wie kann ich hier noch einbauen, dass im Formular ein Kontrollkästchen mit Namen „Distributed“ auf TRUE gesetzt wird sobald das mail versendet ist?
Ist das irgendwie möglich?
Vielen Dank für eure Hilfe
LG
Phil