Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Email mit Signatur erstellen
zurück: Parsen langer XML-Dateien mit dem Simple API for XML (SAX) weiter: Verweis setzten - Mail erstellen (mittels eigener klasse) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
beat78
Office-VBA-Programmierer


Verfasst am:
19. Apr 2010, 12:10
Rufname:
Wohnort: Zürich

Email mit Signatur erstellen - Email mit Signatur erstellen

Nach oben
       Version: Office 2007

Folgender Code erstellt ein Mail mit der persönlichen Signatur des Users.
Code:
Private Sub CommandButton1_Click()
    Call CreateMailMitSignatur
End Sub
Benötigte functionen
Code:
Public Function CreateMailMitSignatur()
    Dim olApp As Outlook.Application
    Dim objMail As MailItem
   
    Call Signatur_zurückgeben
    'Creates a new e-mail item and modifies its properties.
    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)
    With objMail
        'Set body format to HTML
        .SentOnBehalfOfName = ""
        .To = ""
        .Subject = ""
        .BodyFormat = olFormatHTML
        .HTMLBody = "<HTML>  Text  <br> " & " <br> " & " <br> " & " <br> " _
                  & Signatur_zurückgeben & "</HTML>"
        .Display
    End With
End Function

'rückgabewert kann innerhalb von html eingebunden werden.
Private Function Signatur_zurückgeben() As String
    Dim signaturHTM As String

    signaturHTM = Dir("C:\Documents and Settings\" & Environ("username") _
                    & "\Application Data\Microsoft\Signatures\*.htm")
    Signatur_zurückgeben = "C:\Documents and Settings\" & Environ("username") _
                         & "\Application Data\Microsoft\Signatures\" _
                         & signaturHTM
    ' wenn signatur gefunden starte die getboiler function
    If Dir(Signatur_zurückgeben) <> "" Then
        Signatur_zurückgeben = GetBoiler(Signatur_zurückgeben)
    End If
End Function

Private Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
    Dim fso As Object
    Dim ts As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function
Willi Wipp
Moderator


Verfasst am:
30. Apr 2010, 03:00
Rufname:
Wohnort: Raum Wiesbaden


Re: Email mit Signatur erstellen - Re: Email mit Signatur erstellen

Nach oben
       Version: Office 2007

{Dieser Beitrag nimmt das Thema aus den unbeantworteten Themen heraus}
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Adressdatenbank erstellen 1 MoellerCH 3805 04. Feb 2006, 10:41
blicki Adressdatenbank erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: tabellen automatisch erstellen 6 integral logistics 775 01. Feb 2006, 17:15
integral logistics tabellen automatisch erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Code erstellen 2 Frosch73 578 30. Nov 2005, 14:32
Frosch73 Code erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: 1:1-Beziehung erstellen / Fehlermeldung 3201 6 Silvercreast 2196 17. Okt 2005, 04:55
Timbo 1:1-Beziehung erstellen / Fehlermeldung 3201
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehung mit Mastertabelle erstellen 1 Mucro 2910 23. Sep 2005, 19:23
stpimi Beziehung mit Mastertabelle erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: unlöschbaren Datensatz erstellen 1 Vincent_Vega 899 15. Aug 2005, 21:45
stpimi unlöschbaren Datensatz erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: beziehungen erstellen ? 5 _nadine_ 667 09. Aug 2005, 15:20
MasterPRO beziehungen erstellen ?
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehungsproblem bzw. erstellen von Tabellen 24 Katja2 1988 20. Jul 2005, 22:25
Katja2 Beziehungsproblem bzw. erstellen von Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensaetze erstellen 3 ITHeiko 777 24. Jun 2005, 12:54
Willi Wipp Datensaetze erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Bericht über best. Zeitraum erstellen 22 JensS 2813 25. Mai 2005, 15:38
mapet Bericht über best. Zeitraum erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Rechnung erstellen wenn alle Daten vorhanden 6 Freddy 1909 25. Nov 2004, 11:03
Freddy Rechnung erstellen wenn alle Daten vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehungen erstellen 3 Dirk_B 668 17. Jun 2004, 12:30
Dirk_B Beziehungen erstellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS