Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum Speichern an bestimmtem Ort im Netzwerk

Makro zum Speichern an bestimmtem Ort im Netzwerk
07.09.2007 14:03:00
Nico
Hallo zusammen,
ich suche nach einer Lösung, die ein File an einem definierten Ort auf dem Netzwerk speichert und es anschließend an eine definierte Adresse vermailt. Allerdings nicht die Datei, sondern nur einen Link auf die soeben gespeicherte Datei.
Vielleicht kann mir da jemand helfen.
Danke und Gruß
Nico

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Speichern an bestimmtem Ort im Netzwerk
07.09.2007 14:37:00
gerwas
Hallo
versuche mal folgendes, wenn du es angepaßt hast:

Sub MailSenden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
pfad="definierter\Ort\im\Netzwerk\"
datei="name_des_workbook.xls"
ActiveWorkbook.SaveAs Pfad & Datei
With objMail
.To = "Adresse@dort.de; zweite.adresse@dort.de"
.CC = "dritte.Adresse@dort.de"
.BCC = "vierteAdresse@dort.de"
.Subject = "Das ist der Betreff!"
.Body = "Hallo hier die neuesten Verknüpfungen: "  &Pfad &Datei
.ReadReceiptRequested = True
.Display     ' oder direkt Send
End With
Set objOutlook = Nothing
Set objMail = Nothing
End Sub


gruss GerWas

Anzeige
AW: Makro zum Speichern an bestimmtem Ort im Netzwerk
07.09.2007 16:34:00
Nico
Hallo GerWas,
nach einigen Anpassungen funktioniert das schon recht gut.
Jetzt würde ich gerne den Dateinamen beim Speichern noch aus einigen Zelleninhalten generieren lassen und dabei die Leerzeichen entfernen.
Ich habe den modifizierten Code mal eingestellt und an entsprechender Stelle kommentiert:

Sub MailSenden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Pfad = "\\Mmc-file\mmc_allgemein\Wochenleistungsnachweise\"
Datei = "WL NEU Test.xls"
°°° Den Namen habe ich jetzt von Hand eingegeben. Hier soll das aktuelle Datum und dann der  _
Inhalt der Zellen F5 und Q34 als Name generiert werden, allerdings ohne Leerzeichen, damit das mit dem Verlinken weiterhin funktioniert !!!!°°°
ActiveWorkbook.SaveAs Pfad & Datei
With objMail
.To = "nico.roden@mmc.de; nicoroden@aol.com.de"
.CC = "dritte.Adresse@dort.de"
.BCC = "vierteAdresse@dort.de"
.Subject = "Das ist der Betreff!"
.Body = "Hallo hier die neuesten Verknüpfungen: " & Pfad & Datei
.ReadReceiptRequested = True
.Display     ' oder direkt Send
End With
Set objOutlook = Nothing
Set objMail = Nothing
End Sub


Gruß
Nico

Anzeige
AW: Makro zum Speichern an bestimmtem Ort im Netzwerk
11.09.2007 14:18:02
gerwas
Hallo
Man könnte folgendes verwenden:
Datei = Replace("WL NEU Test.xls"," ","")
dann sind die Leerzeichn weg!
Gruß Gerwas

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige