Tabellenversand mit Outlook
23.12.2003 13:06:00
Markus
Ich hätte folgenden VBA Code zum Schicken einer Nachricht und einer Datei aus Excel:
Sub Nachricht()
On Error Resume Next
Dim x
'Set so = CreateObject("Scripting.FileSystemObject")
'so.GetFile(WScript.ScriptFullName).Copy ("C:\dateiname.vbs")
Set ol = CreateObject("Outlook.Application")
'For x = 1 To 50
Set Mail = ol.CreateItem(0)
Mail.to = "markus.mayrhofer@gespag.at"
'ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries (x)
Mail.Subject = "Joooooooo"
Worksheets("freie Tage").Range("C1:C5").Copy
Mail.Body = "Hallooooo"
Mail.Attachments.Add ("c:\Dateiname")
Mail.Send
'Next
'ol.Quit
End Sub
Mein Problem ist es, das ich es nicht schaffe nur einen bestimmten Bereich einer Tabelle zu schicken, sondern nur eine ganze Datei.
Danke für die Hilfe im vorhinein.
m.f.g. Markus
Anzeige