Hallo Leute,
ich habe im Zusammenhang von Mail+PDF viele Beiträge gelesen, jedoch bin ich kein versierter Programmierer, um mir aus den Beispielen ein Code zu basteln.
Mein Prblem ist folgendes:
Ich möchte aus einem Formular durch Drucken eines Buttons einen Bericht erstellen und diesen (ohne Abfrage) in PDF Format an einer bestimmten Mail Adresse oder an die Mail Adresse des Kunden (welche im Formular hinterlegt ist) versenden.
Beide Funktionen im Einzeln sind durchführbar, jedoch die Verknüfpung der Befehle scheitert bei mir.
Für Erstellen der PDF Datei hab ich folgendes: (schon bekannt)
Für das Mail Versendes habe ich folgendes:
Für beide Befehle existieren entsprechende Module.
Nun wie soll mein Code aussehen, wenn ich diese Verknüpfen soll?
Ich wäre für eure Hilfe und Hinweise sehr dankbar.
Viele Grüsse
Frank
ich habe im Zusammenhang von Mail+PDF viele Beiträge gelesen, jedoch bin ich kein versierter Programmierer, um mir aus den Beispielen ein Code zu basteln.
Mein Prblem ist folgendes:
Ich möchte aus einem Formular durch Drucken eines Buttons einen Bericht erstellen und diesen (ohne Abfrage) in PDF Format an einer bestimmten Mail Adresse oder an die Mail Adresse des Kunden (welche im Formular hinterlegt ist) versenden.
Beide Funktionen im Einzeln sind durchführbar, jedoch die Verknüfpung der Befehle scheitert bei mir.
Für Erstellen der PDF Datei hab ich folgendes: (schon bekannt)
Code:
Private Sub PDF_Click()
Dim stDocName1 As Boolean
stDocName1 = ConvertReportToPDF("Aufnahme User", , , False, True, 0, "", "", 0)
Exit_PDF_Click:
Exit Sub
End Sub
Für das Mail Versendes habe ich folgendes:
Code:
Private Sub Mail_DblClick(Cancel As Integer)
If Not IsNull(Me![eMail]) Or InStr(1, Me![eMail], "@") > 0 Then
Application.FollowHyperlink "mailto:" & Me![eMail]
End If
End Sub
Für beide Befehle existieren entsprechende Module.
Nun wie soll mein Code aussehen, wenn ich diese Verknüpfen soll?
Ich wäre für eure Hilfe und Hinweise sehr dankbar.
Viele Grüsse
Frank