Hey Leute
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.
Vielen Dank..für die Hilfe...![Idea Idea](https://www.clever-excel-forum.de/images/smilies/lightbulb.gif)
ciao Sam
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 _ (Felder aus 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
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.
Vielen Dank..für die Hilfe...
![Idea Idea](https://www.clever-excel-forum.de/images/smilies/lightbulb.gif)
ciao Sam
![Huh Huh](https://www.clever-excel-forum.de/images/smilies/huh.gif)
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 _ (Felder aus 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