Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Kopie der Excel-Datei mit VBA per Email versenden
#1
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 Smile
Antworten Top
#2
Hallo,
.Attachments.Add pfad & Dateiname
Gruß Uwe :17:
Antworten Top
#3
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:
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste