Makro zum Speichern an bestimmtem Ort im Netzwerk

Forumthread: 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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)

Makro zum Speichern an bestimmtem Ort im Netzwerk

Forumthread: Makro zum Speichern an bestimmtem Ort im Netzwerk

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread