Hallo zusammen,
nach längerer Suche im Netz habe ich immer noch nicht das gefunden, was ich suche.
Vllt. kann mir einer von euch weiterhelfen.
Ich betreibe eine Veranstaltungssteuerung per Excel (Agenda/Protokoll/Themenspeicher) - das funktioniert auf bestens soweit.
Es kam das Thema, die Referenten nochmals eine Reminder-Mail an die Referenten zu verschicken.
Die Agenda wird per VBA erstellt, die Referenten stehen in Spalte E.
Auf dem gleichen Tabellenblatt habe ich ab Spalte AE einen "Gesamtverteiler" mit allen möglichen Teilnehmern mit Name (AF) und Mailadresse (AG) gelistet.
Durch Wenn-Formeln wird ein "x" in Spalte AE eingetragen, wenn derjenige auf der Agenda steht.
Die Mail wird per Button erstellt, Betreff und Body stehen schon :)
Jetzt zum Problem:
Wie schaffe ich es, dass die Mailadressen (AG), wo in Spalte AE ein "x" steht, in den Verteiler rutschen...??
Hier noch der nicht vollständige Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | Sub RefReminder()
Dim OutApp, MailItem As Object
Dim objMail As Outlook.MailItem
Dim Verteiler As String
Dim LastLine As Integer
Set OutApp = CreateObject( "Outlook.Application" )
Set objMail = OutApp.CreateItem(olMailItem)
LastLine = ActiveWorkbook.Sheets( "Themenspeicher" ).Cells(Rows.Count, 32). End (xlUp).Row
With objMail
.Sensitivity = 0
.Importance = 2
.Subject = "Agenda-Reminder der " & Cells(4, 5).Value & " am " & Cells(4, 6).Value
.Body = .HTMLBody
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><BODY> Sehr geehrte Damen und Herren, <br> <br> diese Mail dient als Reminder, dass Sie mit einem Thema als Referent auf der im Betreff stehenden Veranstaltung gelistet sind.<br>Bitte bereiten Sie ihre Unterlage entsprechend der veranschlagten Zeit auf. <br><br> Besten Dank und freundliche Grüße, <br><br> i.A. der Projektleitung</BODY></HTML>"
.Display
End With
Set objOLMail = Nothing
Set OutApp = Nothing
End Sub
|
Danke euch vielmals für eure Hilfe!
Grüße, Heiko
|