Clever-Excel-Forum

Normale Version: Outlook vba!
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3
Ja ich meine natürlich die dritte Zeile! :)

Es gibt zwei Leerzeilen vor dem Gruss, diese resultieren allerdings beim einfügen der Signatur obwohl ich in der Signatur keine Leerzeilen am Anfan habe! Diese nehme ich dann nach einfügen der Signatur manuell raus!  :@


Evtl. auch ne Idee wie ich diese ersten zwei Leerzeilen loswerde?


Danke
Alexandra
Das alles würde nur gehen wenn die Email per VBA erzeugt wird. Sonst müsstest Du zweimal klicken (einmal die Signatur einfügen und einmal die Nummer in den Emailtext schreiben). Da ich in Outlook 2016 die Signatur nicht per Code einfügen kann (geht anscheinend nur bis Outlook 2007 oder 2010) muss ich versuchen die Signatur auf andere Weise einzufügen.
Bitte PN beachten!
(28.02.2016, 18:16)mumpel schrieb: [ -> ]Das alles würde nur gehen wenn die Email per VBA erzeugt wird. Sonst müsstest Du zweimal klicken (einmal die Signatur einfügen und einmal die Nummer in den Emailtext schreiben). Da ich in Outlook 2016 die Signatur nicht per Code einfügen kann (geht anscheinend nur bis Outlook 2007 oder 2010) muss ich versuchen die Signatur auf andere Weise einzufügen.

Sehr gerne dann alles per Code! ::)

Vg 
Alexandra
(28.02.2016, 18:20)mumpel schrieb: [ -> ]Bitte PN beachten!

Mail habe ich dir geschickt! :)
1. Wo kommt die Nummer her?
2. Wie wird die Email bisher erstellt?
3. Sieht die Signatur auch in der Praxis so aus, also Nur-Text-Mail?
Die folgende Prozedur in Outlook-VBA integrieren und im Menüband ablegen. Wenn Email erstellt wurde dann das Makro auslösen. Der Emailbody wird dann neu erstellt, mit der Bestellnummer in Zeile 3. Die Leerzeilen sind dann antürlich weg.


Public Sub RewriteMailBody()
  
  Dim strSubject   As String
  
                     
    Set Mail = Application.ActiveInspector.CurrentItem
        With Mail
            Rem Erstellte Email speichern (sonst kein Zugriff auf Betreff) 
            .Save
            Rem Letzte 8 Stellen im Betreff auslesen 
            strSubject = Right(.Subject, 8)
            Rem Emailtext neu schreiben (Nur-Text-Mail) 
            .Body = "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf & _
                    "hiermit erhalten Sie die Bestellung " & strSubject & "." & _
                    vbCrLf & vbCrLf & _
                    "Viele Grüsse" & vbCrLf & "Musterfirma GmbH" & vbCrLf & _
                    "Musterstrasse 1" & vbCrLf & "99999 Musterstadt"
            Rem Email nochmal speichern 
            .Save
        End With

End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

(28.02.2016, 18:57)mumpel schrieb: [ -> ]1. Wo kommt die Nummer her?
2. Wie wird die Email bisher erstellt?
3. Sieht die Signatur auch in der Praxis so aus, also Nur-Text-Mail?

1. Die Nummer gebe ich manuell in den Betreff eingegeben!
2. Aus einer PDF drücke ich auf "per Email senden"
3. Ja

Werde morgen gleich mal den Code ausprobieren und melde mich dann nochmals!

Vielen Dank schon mal
VG 
Alexandra
(28.02.2016, 23:04)cysu11 schrieb: [ -> ](...) Die Nummer gebe ich manuell in den Betreff ein (...)
Also etwas Bequemlichkeit? ;)

Dann würde ich das aber etwas anders machen. Die Nummer über ein Eingabefeld (Inputbox) eingeben und dann Betreff und Text automatisiert eintragen lassen.

Public Sub RewriteMailBody()
  
  Dim Mail         As Outlook.MailItem
  Dim strNummer    As String
  
  
  
                     
    Set Mail = Application.ActiveInspector.CurrentItem
        With Mail
            Rem Erstellte Email speichern (sonst kein Zugriff auf Betreff) 
            .Save
            Rem Bestellnummer abfragen 
            strNummer = InputBox("Bitte Bestellnummer angeben!")
            Rem Betreff erstellen 
            .Subject = "Bestellung Autoteile " & strNummer
            Rem Emailtext neu schreiben (Nur-Text-Mail) 
            .Body = "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf & _
                    "hiermit erhalten Sie die Bestellung " & strNummer & "." & _
                    vbCrLf & vbCrLf & _
                    "Viele Grüsse" & vbCrLf & "Musterfirma GmbH" & vbCrLf & _
                    "Musterstrasse 1" & vbCrLf & "99999 Musterstadt"
            Rem Email nochmal speichern 
            .Save
        End With

End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hallo,


habe heute den Code testen können und es funktioniert super! :)
VIELEN DANK schon mal dafür!!

Ich würde jedoch gerne noch die Signatur(nicht die Standard) sondern die "Bestellung" einfügen in HTML-Format auch durch den Code mit einfügen gleichzeitig!
Ist das möglich?

Danke
VG
Alexandra
Seiten: 1 2 3