PDA

Vollständige Version anzeigen : Versand per e-mail


Martin
19.06.2001, 11:14
Hallo,
ich habe folgendes Problem, bei der Betätigung des Buttons werden beide Berichte nacheinander aufgemacht und ich kann sie nur einzel versenden, ich möchte aber, dass es als Anlage beide Berichte im Qutlook erscheinen und eine Kopie an eine feste Adresse zur Kenntnis automatisch dann bei CC: eingetragen wird. Bis jetzt muss ich es beide Berichte 2 mal per e-mail versenden. Vielleicht hat jemand ähnliches Problem gehabt? Vielen Dank im voraus

Private Sub Befehl0_Click()
On Error GoTo Err_Befehl0_Click
DoCmd.OpenReport "Reklamationen Abfrage", acViewPreview, "", "[R_Nr]=Forms![Reklamationen].[R_Nr]"
Dim stDocName As String
stDocName = "Reklamationen Abfrage"
DoCmd.SendObject acReport, stDocName
MsgBox Prompt:="Reklamation wurde an Ihrem Server weitergeleitet!", buttons:=vbInformation, _
Title:="E-mail INFO"
'Exit_Befehl0_Click:
DoCmd.OpenReport "7-Schritte-Plan", acViewPreview, "", "[R_Nr]=Forms![Reklamationen].[R_Nr]"
stDocName = "7-Schritte-Plan"
DoCmd.SendObject acReport, stDocName
MsgBox Prompt:="Reklamation wurde an Ihrem Server weitergeleitet!", buttons:=vbInformation, _
Title:="E-mail INFO"
Exit_Befehl0_Click:
Exit Sub

Err_Befehl0_Click:
MsgBox Err.Description
Resume Exit_Befehl0_Click

End Sub

Günther Kramer
19.06.2001, 11:19
Hallo Martin,

der AP-Druck-Mail-Manager kann das. Dir hier jetzt zu erklären, wie das genau geht würde den Rahmen sprengen.
http://www.access-paradies.de -> Software-Katalog -> AP-Druck-Mail-Manager.