Liebling
Cadet 4th Year
- Registriert
- Aug. 2001
- Beiträge
- 73
Habe diesen Code geschrieben.
Sub MapiAufruf()
With mmessage
.Subject = "Umsätze" 'Betreff
.NoteText = "Hier sollte der Tabelleninhalt stehen" 'Textinhalt
.MessageType = ""
.DateReceived = ""
.ConversationID = ""
.Flags = 0
.RecipCount = 0
.FileCount = 0
End With
Senden = MapiSendMail(0, 0, mmessage, Recipient, File, MAPI_DIALOG Or MAPI_LOGON_UI Or MAPI_NEW_SESSION, 0)
If Senden <> 0 Then
MsgBox ("Fehler oder Nutzerabbruch")
End If
End Sub
Bei NoteText = "Hier sollte der Tabelleninhalt stehen" will ich eigentlich das haben, dass er den Inhalt von einer Accesstabelle da reinschreibt. Wie kann ich dies lösen?
Sub MapiAufruf()
With mmessage
.Subject = "Umsätze" 'Betreff
.NoteText = "Hier sollte der Tabelleninhalt stehen" 'Textinhalt
.MessageType = ""
.DateReceived = ""
.ConversationID = ""
.Flags = 0
.RecipCount = 0
.FileCount = 0
End With
Senden = MapiSendMail(0, 0, mmessage, Recipient, File, MAPI_DIALOG Or MAPI_LOGON_UI Or MAPI_NEW_SESSION, 0)
If Senden <> 0 Then
MsgBox ("Fehler oder Nutzerabbruch")
End If
End Sub
Bei NoteText = "Hier sollte der Tabelleninhalt stehen" will ich eigentlich das haben, dass er den Inhalt von einer Accesstabelle da reinschreibt. Wie kann ich dies lösen?