optionalen Text automatisch übernehmen!
05.10.2022 15:20:03
sam
ein Anfänger braucht mal wieder hilfe...
Ich möchte gerne einen Text der in Bestimmten Feldern steht R90 bis R116
in den Text der Email übernehmen ...
die VBA hat funktioniert ..mit vorgegebenen Texten..jedoch sollen die bestimmten Texte nur erscheinen wenn die Felder in Excel gefüllt sind.
Kann mir jemand sagen wie ich einen bestimmten Bereich (in Tabelle Zusammenfassung II) auslesen und dann automatisch in den Email Text hineinbekomme , der Anfang des Mailtextes ist immer gleich deshalb schon in HTML vorgegeben? GGf auch mit der möglichkeit diesen übernommen Text zu formatieren?
Habe das Problem markiert wo genau der Text hin soll der dann im Bereich R90-116 auftauchen könnte.
Update!
es geht darum eine halb vorgefertigte Mail eben um einen Optionalen Text zu ergänzen, der Optionale Text würde wenn im Bereich R90 bis R116 auftauchen. (tabellenblatt heisst Zusammenfassung II)
dieser soll dann einfach übernommen werden..ob das überhaupt geht weis ich nicht ..aber bisher hat nichts geklappt.
der Rest funktioniert. geht also nur um die Textübernahme..ggf mit formatierung..da der Rest in HTML ist ...
Vielen Dank..für die Hilfe... Idea
ciao Sam Huh
Sub Zusammenfassung_per_EmailTestHTmLAuto()
'** Dimensionierung der Variablen
Dim strPDF As String
Dim OutlookApp As Object, strEmail As Object
Dim olOldbody As String
'** Vorgaben definieren
Set OutlookApp = CreateObject("Outlook.Application")
Set strEmail = OutlookApp.CreateItem(0)
'** PDF erzeugen
ThisWorkbook.Sheets("Zusammenfassung II").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\MitarbeiterlaufzettelZF.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
'** E-Mail versenden
strPDF = ThisWorkbook.Path & "\MitarbeiterlaufzettelZF.pdf"
With strEmail
.To = "support@heymanns.de"
.CC = Worksheets("Zusammenfassung II").Range("T27")
.Subject = "Mitarbeiterlaufzettel - Neuer Mitarbeiter zum " & Range("T28") 'Betreffzeile .Subject = Worksheets("Tabelle1").Range("M121")
.GetInspector
olOldbody = .htmlBody
.BodyFormat = 2 'olFormatHTML
.htmlBody = " Hallo Zusammen,
" _
& "es geht um eine/n :
" _
& "Neueinrichtung eines neuen Mitarbeiters (✔)
oder
Abmeldung eines ausscheidenden Mitarbeiters (✗)
" _
& "Anlage Prozess:
Diese Mail wurde ausgelöst, da entweder ein neuer Mitarbeiter die DELA Lebensversicherung verstärken wird oder ggf. verlässt.
" _
& " Um den Prozess klar struktieriert zu halten nun die folgenden Hinweise an die möglichen Empfänger dieser Mail:
" _
& "Heymanns IT:
Bitte den Mitarbeiter wie im PDF angegeben einrichten, alle nötigen Anforderungen und Vorgaben sind auf dem Mitarbeiterlaufzettel angegeben.
" _
****PROBLEM!! & MsgBox Range("R90:R116").Text _ (Tabellenname Zusammenfassung II)
& "sollten sich Rückfragen in einem Anlagepunkt ergeben, bitte melden...
" & olOldbody
.Attachments.Add strPDF
.Display
'.Send 'Damit wir die E-Mail sofort versendet
Kill strPDF
End With
'** Objektvariablen wieder löschen
Set OutlookApp = Nothing
Set strEmail = Nothing
End Sub