Per VBA erstelle ich eine Mail, welche je nach Inhalt der Zeile AN1 (Werte sind: D/F/I) den entsprechenden Text beinhalten sollte. Wie kann ich jeweils nur den deutschen Text, den französischen oder den italienischen ins Mail reinpacken? kann mir jemand helfen?
Das Script sieht momentan so aus:
Sub SendSheetAsPDF()
Dim MailTo As String
Dim MailCC As String
Dim MailSubject As String
Dim strbody As String
'Email Adresse aus A1 auslesen
MailTo = ActiveSheet.Range("E6").Value
'CC-Adressen: keine. Hier kannst du weitere eintragen, direkt oder als Zellreferenz
MailCC = ""
'Betreff: Titel offene Reservationen und Datum
MailSubject = Range("A1").Value & " " & Format(Date, "DD.MM.YYYY")
'Standardtext, im Maildisplay noch änderbar
strbody = "" & _
"Geschätzter Kunde" & "
" & "
" & _
"blablabla"
"************************************************************************************ _
*******************************" & "
" & "" & _
"Cher client" & "
" & "
" & _
"blablabla"
"********************************************************************************************** _
*********************" & "
" & "" & _
"Gentile cliente" & "
" & "
" & _
"blablabla"
Call SendSheetOutlook(MailSubject, MailTo, MailCC, strbody)
End Sub
Vielen Dank für eure Hilfe.Gruss Stephan