Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
940to944
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
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Worddatei als Anhang in Excel Sereinmail

Worddatei als Anhang in Excel Sereinmail
17.01.2008 10:28:35
Regina
Hallo zusammen,
konnte nichts passendes im Archiv finden.
Möchte an eine Sereinmail aus Excel heraus immer dieselbe Worddatei zusätzlich einfügen (als Anlage einfügen)
Der Pfad der DAtei Ist U:\201.2\Word\Dateiname.doc
Habe versucht in das Makro aus dem Archiv einzufügen.
Klappt leider nicht!
Vielleicht kann jemand mir auf die Sprünge helfen.
Hier das Makro:
Dim Nachricht As Object, OutApp As Object
Dim AWS As String
Dim Hinweise As Workbooks ' das ist mein Problemzeile
Dim ende As Long
Dim i As Long
ende = Range("A65530").End(xlUp).Row
'start der SChleife
For i = 2 To ende
If Cells(i, 15) "" And _
Cells(i, 15) Cells(i - 1, 15) Then
Set OutApp = CreateObject("Outlook.Application")
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ActiveWorkbook.FullName
Hinweise = "u:\201.2\Word\Dateiname.doc" 'das ist meine Problemzeile
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.to = Cells(i, 15)
'Betreff Zeile
.Subject = " " & Date & Time
.attachments.Add AWS
.attachments.Add Hinweise ' das ist meine Problemzeile
'Text in der Email
.Body = "Hier text der Mail "
'Hier wird die Mail nochmals angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
'Outlook schliessenOutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
'outlook kann die Aufträge nicht schnell genug verarbeiten
Application.Wait (Now + TimeValue("0:00:10"))
End If
Next
Daanke im Voraus
Gruß Regina

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worddatei als Anhang in Excel Sereinmail
18.01.2008 08:06:32
Stefan
Hallo Regina
Ich weis nicht ob du schon eine Lösung hast, aber probiers mal damit unter WITH Nachricht
.Attachments.Add "U:\201.2\Word\Dateiname.doc"
Gruß, Stefan

Danke das hab ich gebraucht!!
18.01.2008 09:38:17
Regina
o.t.
Anzeige

256 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige