Problem bei SendObject als Snapshot

05/10/2009 - 14:31 von Carsten Ulinski | Report spam
Hallo zusammen,

seit Jahren benutze ich dieses Stück code, um ein automatisierte Mail
mit Anhang per Lotus Notes zu versenden.

Private Sub btnSendAusbildungsmassnahmenAL1Monat_Click()
On Error GoTo Err_btnSendAusbildungsmassnahmenAL1Monat_Click

DoCmd.SendObject _
ObjectType:=acSendReport, _
ObjectName:="rptAusbildungsüberichtProAbteilungAL_nachPerson", _
Outputformat:="Snapshot Format", _
To:=Me.Kombinationsfeld0.Column(2), _
Subject:="Monatsreporting KBEQM-Ausbildungsmaßnahmen für den
Zeitraum " & MonthName(Month(DateSerial(Year(Date), Month(Date) - 1,
1))) & " " & Year(Date), _
MessageText:="Hallo " & Me.Kombinationsfeld0.Column(1) & " " &
Me.Kombinationsfeld0.Column(2) & "," & vbNewLine & vbNewLine & _
"anbei das Monatsreporting für den Monat " & MonthName(Month
(DateSerial(Year(Date), Month(Date) - 1, 1))) & " " & Year(Date) & "."
& vbNewLine & vbNewLine & _
"Viele Grüße" & vbNewLine & _
"Mein Name" & vbNewLine & vbNewLine & _
"Dies ist ein automatisch erzeugtes Mail.", _
editmessage:=True

Exit_btnSendAusbildungsmassnahmenAL1Monat_Click:
Exit Sub

Err_btnSendAusbildungsmassnahmenAL1Monat_Click:
MsgBox Err.Description
Resume Exit_btnSendAusbildungsmassnahmenAL1Monat_Click

End Sub

An Stelle der Snapshot Datei hàngt nun eine Datei namens CDB5.xls mit
vielen Hieroglyphen dran. Auch manuelles Versenden der
Berichtsvorschau als Snapshot schlàgt fehl. Immer etwas mit CDB...xls.

Wer kann helfen?
Viele Grüße
Carsten
 

Lesen sie die antworten

#1 Thomas Möller
05/10/2009 - 18:24 | Warnen spam
Hallo Carsten,

Carsten Ulinski schrieb:
seit Jahren benutze ich dieses Stück code, um ein automatisierte Mail
mit Anhang per Lotus Notes zu versenden.

Private Sub btnSendAusbildungsmassnahmenAL1Monat_Click()
On Error GoTo Err_btnSendAusbildungsmassnahmenAL1Monat_Click

DoCmd.SendObject _
ObjectType:=acSendReport, _
ObjectName:="rptAusbildungsüberichtProAbteilungAL_nachPerson", _
Outputformat:="Snapshot Format", _
To:=Me.Kombinationsfeld0.Column(2), _
Subject:="Monatsreporting KBEQM-Ausbildungsmaßnahmen für den
Zeitraum " & MonthName(Month(DateSerial(Year(Date), Month(Date) - 1,
1))) & " " & Year(Date), _
MessageText:="Hallo " & Me.Kombinationsfeld0.Column(1) & " " &
Me.Kombinationsfeld0.Column(2) & "," & vbNewLine & vbNewLine & _
"anbei das Monatsreporting für den Monat " & MonthName(Month
(DateSerial(Year(Date), Month(Date) - 1, 1))) & " " & Year(Date) & "."
& vbNewLine & vbNewLine & _
"Viele Grüße" & vbNewLine & _
"Mein Name" & vbNewLine & vbNewLine & _
"Dies ist ein automatisch erzeugtes Mail.", _
editmessage:=True

Exit_btnSendAusbildungsmassnahmenAL1Monat_Click:
Exit Sub

Err_btnSendAusbildungsmassnahmenAL1Monat_Click:
MsgBox Err.Description
Resume Exit_btnSendAusbildungsmassnahmenAL1Monat_Click

End Sub

An Stelle der Snapshot Datei hàngt nun eine Datei namens CDB5.xls mit
vielen Hieroglyphen dran. Auch manuelles Versenden der
Berichtsvorschau als Snapshot schlàgt fehl. Immer etwas mit CDB...xls.



eine wirkliche Lösung habe ich leider auch nicht für Dein Problem - nur
eine Idee für einen Workaround: Versuch mal den Bericht als *.snp-Datei
zu speichern und die gespeicherte Datei als Attachment zu versenden.

CU
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen