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