Clever-Excel-Forum

Hallo zusammen,

da mir in diesem Forum schon einmal so wunderbar geholfen wurde,
habe ich auch diesmal wieder die Hoffnung auf eine Lösung eurerseits.

Ich möchte eine mittels VBA erzeugte Kopie meiner gesamten Excel-Datei (4 Tabellenblätter) automatisch per E-Mail versenden.

Das Speichern der Kopie mit ihrem eigenen erzeugten Namen funktioniert, doch leider wird die Originaldatei und nicht die erzeugte Kopie in Outlook angehangen.
Ich vermute der Fehler liegt im rot markierten Bereich, oder? 

Bin leider kein Fachmann, habe mir den Code aus Online-Infos zusammengebastelt:


Sub SpeichernUndSenden()

Dim MName As String
Dim JName As String
Dim Dateiname As String
Dim pfad As String
Dim olApp As Object
Dim objMail As Object

MName = Range("C3")
JName = Range("D3")
Dateiname = MName & "_" & JName & ".xlsm"

pfad = "C:\Users\Hans\Documents\The Nutrient Plan\"
ActiveWorkbook.SaveCopyAs Filename:=pfad & Dateiname

Set olApp = CreateObject("Outlook.Application")
 Set objMail = olApp.CreateItem(0)
 With objMail
  .To = "test@gmail.com"
  .Subject = "Testdatei " & MName & " " & JName
  .Body = "Hallo Empfänger, hier die Testdatei für " & MName & ", " & "Kunden- und Bestellnummer" & " " & JName & vbNewLine & .Body
  .Attachments.Add ActiveWorkbook.FullName
  .Send
 MsgBox "Die Datei wurde gespeichert und an test@gmail.com per Mail versandt."
 End With
 Set objMail = Nothing
 Set olApp = Nothing
 
End Sub


Ich baue auf euch... vielen Dank im voraus

Hallo,

.Attachments.Add pfad & Dateiname

Gruß Uwe :17:

Das ging schnell - und der einfache Weg ist oft der richtige.
Wie heißt es so schön: Man sieht den Wald vor Bäumen nicht!!!

Vielen Dank... :23: