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:
Sub RefReminder()
Dim OutApp, MailItem As Object
Dim objMail As Outlook.MailItem
Dim Verteiler As String
Dim LastLine As Integer
'==============================================
'Initialisierung von Outlook
Set OutApp = CreateObject("Outlook.Application")
Set objMail = OutApp.CreateItem(olMailItem)
'==============================================
'Letzte Zeile des Verteilers definieren
LastLine = ActiveWorkbook.Sheets("Themenspeicher").Cells(Rows.Count, 32).End(xlUp).Row
'==============================================
'Mail-Erstellung mit Betreff und Inhalt
With objMail
'.To = <-- Wie bekomme ich hier den variablen Verteiler rein???
'.CC =
'.BCC =
.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
'.Send
End With
Set objOLMail = Nothing
Set OutApp = Nothing
End Sub
Danke euch vielmals für eure Hilfe!
Grüße, Heiko
|