aus einem formular heraus wird durch klicken eines buttons eine email mit entsprechendem empfänger, absender, betreff, versanddatum und text erstellt.
folgenden vba-code habe ich hinter dem button hinterlegt:
Private Sub EMailButton_Click()
Dim Applikation As New Outlook.Application
Dim Mail As Outlook.MailItem
Set Mail = Applikation.CreateItem(olMailItem)
Mail.To = Me![Email]
Mail.Subject = Me![Betreff]
Mail.Attachments.Add „C:\Verwaltung\xxx.jpg“, jpg, 1, „xxxname“
Mail.HTMLBody = „“ & Me![mailtext]
Mail.DeferredDeliveryTime = Me![GebtagDJ]
Mail.SentOnBehalfOfName = „[email protected]“
Mail.Display
End Sub
nun ist es jedoch so, dass ich gerne eine in outlook programmierte signatur eingefügt haben möchte.
in outlook habe ich insgesamt 5 verschiedene signaturen hinterlegt - die die ich gerne eingefügt haben möchte heißt „Team TRC +FB“.
hat mir jemand eine codezeile die ich einbauen muss oder ggf. den korrekten code für diese problembehebung?
vielen herzlichen dank schon im voraus.
sascha
ps: ich bin kein VBA-profi (eher blutiger anfänger) und habe mir die codezeilen hier ausm internet zusammengesammelt - mehr kann ich jedoch leider nicht, daher bitte angänger-deutsch verwenden
soweit ich weiß, geht das nicht so wie du dir das denkst.
Outlook legt für jede Signatur, die du erstellst drei Signaturen in den Formaten HTML, RTF und Text an.
Du hast die Möglichkeit, abhängig vom verwendeten Emailkonto eine andere Signatur für das Antworten, das Weiterleiten und neuanlegen einer Email festzulegen.
Es gibt somit nicht einfach nur eine Signatur die man auswählen könnte.
Bei deinem Beispiel sollte die passende Signatur abhängig vom gewählten Emailkonto automatisch von Outlook hinzugefügt werden.
Falls das nicht der Fall sein sollte, prüfe deine Einstellungen von Outlook.
Private Sub EMailButton_Click()
Dim Applikation As New Outlook.Application
Dim Mail As Outlook.MailItem
Set Mail = Applikation.CreateItem(olMailItem)
Mail.To = Me![Email]
Mail.Subject = Me![Betreff]
Mail.Attachments.Add „C:\Verwaltung\xxx.jpg“, jpg, 1,
„xxxname“
Mail.HTMLBody = „“ & Me![mailtext]
Mail.DeferredDeliveryTime = Me![GebtagDJ]
Mail.SentOnBehalfOfName = „[email protected]“
Mail.Display
End Sub
Wie ich sehen kann, kennst du dich mit HTML gut aus. Dann erweitere doch einfach deine Vorgabe:
Dim MySig as String
MySig = „Meine Signatur“
…
…
Mail.HTMLBody = „“ & Me![mailtext] & MySig
…
…
D.h. wenn du nun „Meine Signatur“ entsprechend deinen Wünschen anpasst, sollte es funktionieren.
danke für den tipp - ich habs nun wie folgt eingebaut
Private Sub EMailButton_Click()
Dim Applikation As New Outlook.Application
Dim Mail As Outlook.MailItem
Set Mail = Applikation.CreateItem(olMailItem)
Dim MySig as String
MySig = „Meine Signatur“
Mail.To = Me![Email]
Mail.Subject = Me![Betreff]
Mail.Attachments.Add „C:\Verwaltung\xxx.jpg“, jpg, 1,
„xxxname“
Mail.HTMLBody = „“ & Me![mailtext] & MySig
Mail.DeferredDeliveryTime = Me![GebtagDJ]
Mail.SentOnBehalfOfName = „[email protected]“
Mail.Display
End Sub
ist das korrekt?
ich hab natürlich den wert MEINE SIGNATUR geändert in den namen der signatur in outlook (in diesem fall: „team trc +fb“)
D.h. wenn du nun „Meine Signatur“ entsprechend deinen Wünschen
anpasst, sollte es funktionieren.
nun fügt er in die e-mail den wert MEINE SIGNATUR ein (bzw. meinen o.g. wert).
es wird aber leider nicht der html-entwurf einer bereits bestehenden outlook-signatur angezeigt
Hallo,
die Outlook-Signatures sind lediglich Textdateien in bestimmten Formaten (htm, RTF, txt) und befinden sich im Verzeichnis C:\Dokumente und Einstellungen\USERNAME\Anwendungsdaten\Microsoft\Signatures
Von dort kann die jeweils passende Datei geöffnet und in den Mail-Body eingefügt werden.
Access soll E-Mail erstellen mit Outlook Signatur
Hallo Sascha,
zunächst, ich bin sehr prädestiniert dir zu helfen denn ich bin nicht vorbelastet mit irgendwelchem störenden Wissen zu Access- und Outlook-Vba
Aber schaun wir mal ob ich dir trotzdem helfen kann.
Was ist Me und was ist Email in
Me![Email]
Oder das mal weglassend, bin nicht sehr an Access-Vba interessiert,
kannst du das auch so schreiben:
Mail.To = „[email protected]“
und die anderen derartigen Codezeilen auch umschreiben?
Mit Nichtwissen in Outlook meine ich Ernst. Bevor ich da lang rumsuchen muß beschreib mir doch bitte wie ich da 5 Signaturen anlege und sie benenne wie du es wohl getan hast.
Und was du mit „eine in outlook programmierte signatur“ genau meinst.
Das „programmiert“ irritiert mich
Dann teste ich das morgen oder so ob ich eine Vba-Lösung hinbekomme, Erfolg ungewiß.
ich vermute mal Franz meint, dass du es in den HTML-Code der
sich in deinem VBA-Code befindet einbauen sollst.
ja das dachte ich mir schon, hab es wohl falsch formuliert - meinte an welcher stelle des vba-codes? habs einfach mal vor die ganzen „mail.“ zeilen reinkopiert - doch es klappt nicht.
wie Signaturen bei Outlook funktionieren ist dir nicht bekannt!
Richtig?
Du erwartest hier fertige Lösungen, die wir dir nicht bieten können, da du das Angebotene nicht umsetzen kannst bzw. nicht verstehst was damit gemeint ist.
Da du deinen Code einfach nur kopiert hast, weißt du auch nicht, wo z.B. der HTML-Teil anfängt bzw. aufhört. Du hast den Code nicht verstanden.
Selbst wenn man dir das als Beispiel in den Code reinschreibt, kannst du es nicht umsetzen. Siehe meine vorherigen Beiträge.
Sorry, aber so funktioniert es nicht. Der beste Beweis dafür ist deine Antwort auf den Beitrag von Argon. Mensch Meier, der Hinweis ist Gold Wert!! Ich würde es auf jeden Fall mal ausprobieren.
Programmieren ist wie das Autofahren. Ich kann dir alles in der Theorie erklären und aufschreiben und aufzeichnen, fahren musst aber du selbst.
Wenn ich dann sage: tritt die Bremse und du nicht mal weißt was eine Bremse ist …sorry, so kann das nicht funktionieren.
