Mail.Attachments.Add ActiveSheet
05.03.2008 14:21:50
Werner
Gibt es nur diesen einen Befehl um Anhänge in eine Mail einzufügen?
Mail.Attachments.Add ThisWorkbook.FullName
Wenn ich Mail.Attachments.Add ActiveSheet eingebe kriege ich eine Fehlermeldung.
Ich möchte nur ein bestimmtes Tabellenblatt als Anhang verschicken.
An der Sicherheitsabfrage bin ich vorbei.
Sub MailVersenden()
Dim outl, Mail As Object
Dim i As Integer
Dim Nachricht
For i = 6 To 6 'Zeile 6
If Cells(i, 2) = "" Then GoTo ende
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = Cells(i, 2) & " " & Cells(8, 4) & Cells(12, 1) & " / " & Cells(14, 1) ' _
Betreffzeile
Mail.To = Cells(i, 2) 'Adresse
Mail.Attachments.Add ActiveSheet
Mail.Display
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate Mail
Application.Wait (Now + TimeValue("0:00:02"))
WshShell.SendKeys ("%s")
Set Mail = Nothing
Set outl = Nothing
Set WshShell = Nothing
Application.Wait (Now + TimeValue("0:00:03"))
ende:
Next i
End Sub
Stört euch nicht an dieser nicht vorhandenen Wiederholungsroutine. Habe den Code aus einer anderen Datei kopiert und (zugegen bestimmt nicht clever) angepasst.
Wäre super, wenn es da was gäbe, um nur ein einzelnes Tabellenblatt als Anhang zu verschicken.
Gruß und DANKE!
Werner