Signatur einfügen
25.08.2022 08:00:02
Kai
ich weiß, das Thema wurde schon mehrmals behandelt, aber ich bekomme es einfach nicht hin, am Ende der Mail die automatische Signatur des jeweiligen Benutzers automatisch einzufügen. Vielleicht kann sich jemand "erbarmen" und mir helfen. Hier der bisherige Code der prima funktioniert - nur leider ohne Signatur am Ende....
'E-Mail erstellen Schaltfläche Ereignisroutine
Private Sub CommandButton8_Click() 'Funktion wird aufgerufen, wenn die Schaltfläche "E-Mail erstellen" gedrückt wird
Dim Anredenvorlage As String
Dim Anzahlvorlage As String
Dim Positionsvorlage As String
Dim Optionsvorlage As String
Dim SchnelleBearbeitung As String
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application") 'Outlook-Objekt erstellen
Set objMail = objOutlook.CreateItem(0) 'Outlook-E-Mail erstellen
'Textvorlagen für E-Mail
'Anrede
If OptionButton4 = True Then 'Falls für Anrede "Herr" angekreuzt ist
Anredenvorlage = "Sehr geehrter Herr " '"Sehr geehrter Herr " in Anredevorlage speichern
End If
If OptionButton5 = True Then 'Falls für Anrede "Frau" angekreuzt ist
Anredenvorlage = "Sehr geehrte Frau " '"Sehr geehrte Frau " in Anredevorlage speichern
End If
'Stückzahl - Singular oder Plural
If TextBox4.Text = "1" Then 'Falls für Stückzahl eine "1" eingetragen ist
If OptionButton8 = True Or OptionButton9 = True Then 'Falls es sich um eine Rücklieferung oder Nacharbeit handelt
Anzahlvorlage = "Folgender Artikel ist fehlerhaft gefertigt worden: " '"Folgender Artikel ist fehlerhaft gefertigt worden: " in Anzahlvorlage speichern
End If
If OptionButton10 = True Then 'Falls es sich um ein Fehlteil handelt
Anzahlvorlage = "Folgender Artikel wurde nicht mitgeliefert: " '"Folgender Artikel wurde nicht mitgeliefert: " in Anzahlvorlage speichern
End If
Else 'Falls eine größere Stückzahl als "1" eingetragen ist
If OptionButton8 = True Or OptionButton9 = True Then 'Falls es sich um eine Rücklieferung oder Nacharbeit handelt
Anzahlvorlage = "Folgende Artikel sind fehlerhaft gefertigt worden: " '"Folgende Artikel sind fehlerhaft gefertigt worden: " in Anzahlvorlage speichern
End If
If OptionButton10 = True Then 'Falls es sich um ein Fehlteil handelt
Anzahlvorlage = "Folgende Artikel wurden nicht mitgeliefert: " '"Folgende Artikel wurden nicht mitgeliefert: " in Anzahlvorlage speichern
End If
End If
'Pos ist eventuell nicht ausgefüllt
If TextBox7.Text = "" Then 'Falls für Position nichts eingetragen ist
Positionsvorlage = "" '"" in Positionsvorlage speichern
Else 'Falls für Position etwas eingetrage ist
Positionsvorlage = " [Bestell-Pos.-Nr.: " '" [Bestell-Pos.-Nr.: " in Positionsvorlage speichern
End If
'Nacharbeit, Rücklieferung oder Fehlteil
If OptionButton9 = True Then 'Falls es sich um eine Rücklieferung handelt
Optionsvorlage = "Nacharbeit möglich: " & TextBox15.Text & " Minuten"
End If
If OptionButton10 = True Then 'Falls es sich um eine Nacharbeit handelt
Optionsvorlage = "Bitte Artikel schnellstmöglich - unter Angabe des Lieferdatums - nachliefern!"
End If
If OptionButton8 = True Then 'Falls es sich um ein Fehlteil handelt
Optionsvorlage = "Bitte Artikel schnellstmöglich nacharbeiten und - unter Angabe des Rücklieferdatums - zurückliefern!"
End If
'Ausfüllen der E-Mail
With objMail 'Eigenschaften der E-Mail bestimmen
'Empfänger = E-Mail Adresse des Ansprechpartners ausfüllen
.To = TextBox21.Text
'CC = Verteiler: Einkauf-Mail ausfüllen
.CC = "Einkauf-Mail"
'Betreff ausfüllen
.Subject = "Rekl.-Nr.:" & " " & Label38.Caption & " - " & "Kom.-Nr.:" & TextBox1.Text & " - " & "Bestell-Nr.:" & TextBox2.Text & " - " & "Lieferant: " & ComboBox1.Text
'Body der E-Mail ausfüllen
.htmlBody = "" _
& Anredenvorlage & ComboBox2.Text & ",
" _
& "Reklamation vom " & TextBox3.Text & ":
" _
& "Kom.Nr.: " & TextBox1.Text & " - " & "Bestell-Nr.: " & TextBox2.Text & "
" _
& Anzahlvorlage & "
" _
& "" & TextBox4.Text & "x " & TextBox5.Text & "-" & TextBox6.Text & " " & TextBox8.Text & Positionsvorlage & TextBox7.Text & "]
" _
& "Beanstandung:
" _
& TextBox14.Text & "
" _
& "ggf. sind Bilder als Anhang beigefügt.
" _
& "" & Optionsvorlage & "
" _
& "Informationen bezüglich des weiteren Vorgehens bitte innerhalb von drei Werktagen an diese E-Mail-Adresse senden."
.Display 'Erstellt die Email und öffnet diese. Das Senden erfolgt anschließend manuell vom User!
End With
End Sub
