Hallo Guten Morgen,
habe folgendes Problem im Makro... es übernimmt den Text nicht in die Email... was ist falsch
wer kann mir helfen... schon mal Danke!!!!
Sub einzelnes_Blatt_senden()
'** Das aktive Tabellenblatt wird über Outlook versendet
'** Dimensionierung der Variablen
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strMailBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
'** Pfad für temporäre Zwischenspeicherung angeben
strPfad = "C:\Temp" 'entsprechend anpassen
'** Aktuelles aktives Blatt in neue Arbeitsmappe kopieren
strBlatt = ActiveSheet.Name
'** Gewähltes Tabellenblatt kopieren
Sheets(strBlatt).Copy
'** Blatt temporär in vorgegebenes Verzeichnis abspeichern
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name
'** Pfad und Dateiname der neuen Datei zwischenspeichern
strDatei = ActiveWorkbook.FullName
'** Body-Text festlegen
With Mail '** Mail erzeugen
.To = "emai-adresse.com"
.CC = "email-adresse.com"
.Subject = "Wochenausgang" 'Betreff
.BodyFormat = 2 '2 = HTML, 1 = Text
.Attachments.Add strDatei 'Anhang
strMailBodyText = _
"Mit freundlichen Grüßen" & Chr(13) & Chr(13) & _
"Adam Treubert" & Chr(13) & _
"Milchwerke Oberfranken West eG., Sulzdorfer Strasse 7, 96484 Meeder" & Chr(13) & _
"Wochenausgang" & Chr(13) & _
.Body = strMailBodyText 'Bodytext / Signatur
End With
'** Erzeugte Datei schließen
Workbooks(Dir(strDatei)).Close
'** Erzeugte Datei wieder löschen
Kill (strDatei)
'** E-Mail anzeigen
Mail.Display
End Sub |