Microsoft Office Tutorials and References
In Depth Information
6.2.6 Dateien versenden über Outlook
Projektleiterbericht versenden
Diese Anweisung startet den Versand des aktuellen Berichts als
Anhang in einer neuen Outlook-Mail. Fügen Sie sie vor der End Sub -
Anweisung des ersten oder zweiten Makros ein:
ProjektleiterberichtSenden (PLeiter)
Das Makro kopiert die aktuelle Tabelle in eine neue Arbeitsmappe,
speichert diese unter dem Namen des Projektleiters (mit »Projektbe-
richt«) und aktiviert eine neue Mail in Outlook. Der Projektleiterbe-
richt wird als Anhang eingefügt, die neue Mail kann nach Eintrag der
Mailadresse sofort versendet werden.
Falls eine Fehlermeldung eine fehlende Objektbibliothek anmahnt,
kreuzen Sie die Outlook-Bibliothek unter Extras/Verweise an.
Info ......
Listing 6.6: Makro versendet Projektleiterbericht als Anhang über Outlook
Sub ProjektleiterberichtSenden(PLeiter)
Dim ol As Object, mail As Object, strEndung
' Tabellenblatt in neue Mappe kopieren und speichern
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "Projektbericht " & PLeiter
.Close
End With
' Neue Outlook-Nachricht öffnen
Set ol = CreateObject("Outlook.Application")
Set mail = ol.createitem(0)
With mail
.Subject = "Projektcontrolling - Projektbericht"
.body = "Sehr geehrte Kollegin/sehr geehrter Kollege," _
& Chr(13) _
& "mit dieser Nachricht erhalten Sie den aktuellen Projektbericht. "
' Dateiendung ab Excel 2007 xlsx
If Val(Application.Version) > 11 Then
strEndung = ".xlsx"
Else
strEndung = ".xls"
End If
.attachments.Add _
CurDir & "\" & "Projektbericht " & PLeiter & strEndung
.display
End With
Set mail = Nothing
Set ol = Nothing
End Sub
Search JabSto ::




Custom Search