VBA E-mail mit Signatur

[itaflo]

Hallo,

ich habe hier im Forum nach einer Lösung gesucht aber leider keine gefunden, Access Hilfe war leider auch keine Hilfe.

was ist an diesem Code Falsch?

Private Sub Befehl304_Click()

On Error Resume Next

DoCmd.SendObject , , , Me![E-mail Address], , , Me!Kombinationsfeld310 & "  Paketnummer: " & Me!Kombinationsfeld308, _
                "Ein Paket ist gerade für Sie angekommen. " & vbCrLf & _
                "Bringen Sie bitte diese Email als Nachweis mit. " & vbCrLf & _
                "Öffnungszeiten:  Täglich von 09:30 - 10:30 / 13:00 - 14:00 Uhr." & vbCrLf & _
                vbCrLf & _
                "Paketannahme PLV" & vbCrLf & _
                "Fendt GmbH" & vbCrLf & _
                "Ansprechspartner: Höbel Melanie" & vbCrLf & _
                "Tel. 08342/771071", True

SigString = "C:\Users\Flo\AppData\Roaming\Microsoft\Signatures\Test.hmtl"      'anpassen
     If Dir(SigString) <> "" Then
         Signature = GetBoiler(SigString)
       Else
         Signature = ""
     End If
     On Error Resume Next

End Sub


das mit der Signatur funktionier einfach nicht  anscheinend liegt es "GetBoiler(SigString)"


ich hoffe ihr könnt mir weiterhelfen

[MaggieMay]

Hallo,

das Anhängen einer Signatur wird durch die SendObject-Methode nicht unterstützt, dazu müsstest du den Weg über die Automatisierung von Outlook wählen.
Dazu sollten sich etliche Beispiele finden lassen, geeignetes Suchwort könnte "Outlook.Application" sein.

BTW:
Was macht denn die Funktion "GetBoiler"?

[itaflo]

"GetBoiler" wird gelb markiert.

[MaggieMay]

Hallo,

deine Antwort ist ein Joke - oder wie soll man das verstehen?! 
Wenn du Hilfe erwartest, solltest du dir ein wenig mehr Mühe geben, dein Problem auf nachvollziehbare Art darzustellen.
Aber auch den Antworten, die man dir gibt, solltest du ein wenig mehr Aufmerksamkeit schenken.

Was genau hast du denn an folgendem Statement nicht verstanden:

das Anhängen einer Signatur wird durch die SendObject-Methode nicht unterstützt

Und was glaubst du, was hinter folgender Frage gesteckt haben mag:

Was macht denn die Funktion "GetBoiler"?

Die Antwort

"GetBoiler" wird gelb markiert.

hilft hier kein bißchen weiter. Die Markierung scheint auf einen Fehler in der unbekannten Funktion hinzudeuten. Normalerweise gibt es dazu auch eine Wortmeldung, die möglicherweise mehr Aussagekraft als die Einfärbung hat. Der (ursprünglich nachgefragte) VBA-Code der Funktion könnte möglicherweise für die Aufklärung hilfreich sein.

[itaflo]

Nach dem ich im Formular "Befehl304" betätigte sprang diese Seite auf  die im Anhang zu sehen ist.
und nach dem ich dann anschließend auf ok gedrückt habe markiert er mir die Zeile "Private Sub Befehl304_Click()"

und ja du hast recht ich sollte mir mehr mühe geben wenn ich die geforderte Hilfe erwarte.

[MaggieMay]

Die Fehlermeldung spricht für sich, findest du nicht?
Du rufst an der Stelle eine Funktion auf die es nicht gibt.
Kein Wunder, dass du meine diesbezügliche Frage nicht beantworten konntest. 

Woher hast du denn den Code und was denkst du, was er bewirken soll?

[DF6GL]

Hallo,

Google liefert z. B. und u. a. diesen Link:

http://www.rondebruin.nl/win/s1/outlook/signature.htm

[itaflo]

den habe ich hier im Forum gefunden aber mir war klar das das so nicht funktionieren kann.

ich geb es auf das mit der Signatur wird wohl nichts.
zumindest so das ich alle funktionen die ich jetzt habe beibhalten kann

Private Sub Befehl304_Click()

On Error Resume Next

DoCmd.SendObject , , , Me![E-mail Address], , , Me!Kombinationsfeld310 & "  Paketnummer: " & Me!Kombinationsfeld308, _
                "Ein Paket ist gerade für Sie angekommen. " & vbCrLf & _
                "Bringen Sie bitte diese Email als Nachweis mit. " & vbCrLf & _
                "Öffnungszeiten:  Täglich von 09:30 - 10:30 / 13:00 - 14:00 Uhr." & vbCrLf & _
                vbCrLf & _
                "Paketannahme PLV" & vbCrLf & _
                "Fendt GmbH" & vbCrLf & _
                "Ansprechpartner: Höbel Melanie" & vbCrLf & _
                "Tel. 08342/771071" & vbCrLf & _
                "Mobil 0151/44146580", True

End Sub

[MaggieMay]

Wie gesagt, mit SendObject kann das nicht funktionieren, wohl aber mit Automation von Outlook. Beispiele dazu sollten sich finden lassen, bspw. auf der von Franz verlinkten Seite. Die hast du dir wohl noch nicht angesehen, oder? Dort findest du auch den Code für die dir fehlende Funktion getBoiler. Aber wie gesagt...