Microsoft Office Tutorials and References
In Depth Information
4.2 Operative Instrumente
.body = "Sehr geehrte Kollegin/sehr geehrter Kollege," _
& Chr(13) _
& "mit dieser Nachricht erhalten Sie einen Fragebogen " _
& "zur Erfassung Ihrer arbeitsplatzbezogenen Tätigkeiten. " _
& Chr(13) & "Bitte füllen Sie diesen aus und senden Sie ihn als Dateianhang " _
& "zurück an den Absender (hfritsch@mustermann.com). " _
& Chr(10) & Chr(13) & "Vielen Dank!"
.To = strMailadresse
' Dateiendung ab Excel 2007: xlsx
.Attachments.Add CurDir & "\" & strFragebogen & ".xls"
.display
' Sofort senden mit .send
End With
nextMA:
Next i
Set mail = Nothing
Set ol = Nothing
' UserForm ausblenden
Unload Me
End Sub
Abbildung 4.69: UserForm mit Multiselect-Mitarbeiterliste
Das Makro der Schaltfläche Formular senden übernimmt jetzt die
Aufgabe, für jeden markierten Mitarbeiter eine Outlook-Nachricht
zu generieren und diese mit den Daten aus der Personaldatenbank zu
bestücken. Das Tabellenblatt mit dem Fragebogen wird vorher als
Datei im XLS-Format abgespeichert, der Dateiname setzt sich zusam-
men aus »Projekt GWA_« und dem Namen des Mitarbeiters.
Search JabSto ::




Custom Search