Infomail mit Verknüpfung & Mail als "cc"
16.02.2016 17:37:16
Fred
mit dem unten stehenden Makro wird eine Info-Mail an einen bestimmten Verteilerkreis gesendet, sobald ich das Makro mit einem Steuerelement starte.
Jetzt die Fragen :-) ....
1. Kann man in diese Mail eine Verknüpfung zu der Datei beilegen, damit die Empfänger der Mail gleich auf die Datei zugreifen und bzw. etwas ändern können? Da mehrere Benutzer gleichzeitig mit der Datei arbeiten (lesen) ist es wichtig, das nur eine Verknüpfung mit geschickt wird. Die Hauptdatei liegt immer zentral in einem bestimmten Ordner.
2. Kann man in dem Makro auch bestimmte Empfänger als "cc" benennen? Momentan werden alle direkt angeschrieben.
Sub sendAfter()
Set olAppication = CreateObject("Outlook.Application")
Set objEMail = olAppication.CreateItem(olMailItem)
Application.Wait Now + TimeSerial(0, 0, 5)
With objEMail
.To = "123@456.de" 'E-Mail Adresse des Empfängers eintragen'
.Subject = [AV2] 'der Text der in der Betreffzeile in der E-Mail stehen soll'
.Body = "Hallo" 'der Text im E-Mailtext erscheinen soll'
.Display
End With
SendKeys "%s", True
SendKeys "^{ENTER}", True
Set objEMail = Nothing
End Sub
Vielen Dank und Grüße
Fred