Automatischer Emailversand - kleines Problem
01.10.2014 11:56:26
Christoph
ich habe eine kleine Frage. Ich habe eine Liste mit unterschiedlichen Projekten und u.a. der jeweiligen Starttage der Projekte - https://www.herber.de/bbs/user/92926.xlsm
Ich habe nun begonnen ein Makro zu programmieren, welches automatisch eine Email versendet, wenn das Startdatum dem 'heutigen Datum' entspricht.
Function makro1_start()
'** Prozedur aufrufen
testemail
End Function
Sub testemail()
Dim objApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set objApp = CreateObject("Outlook.Application")
Set objMail = objApp.CreateItem(olMailItem)
sSubject = Range("E6").Value
sbody = Range("E6").Value
objMail.To = "christophzaenker@gmx.de"
objMail.Subject = sSubject
objMail.Body = sbody
objMail.ReadReceiptRequested = True
objMail.Display
objMail.Send
Set objApp = Nothing
Set objMail = Nothing
End Sub
Wie man erkennen kann, ist der Betreff und der Textkörper noch statisch. Ich finde gerade keinen Ansatz, wie ich dies lösen könnte. Die Dynamik in Makros abzubilden fällt mir immer noch nicht so leicht.
Im Prinzip möchte ich, dass wenn das heutige Datum dem Startdatum eines Projektes entspricht (es können auch mehrere Projekte an einem Tag starten), dass dann eine automatisierte Email versendet wird. Diese Mail sollte Platzhalter enthalten um bspw. den Ort des Projektes, welches am betreffenden Tag beginnt, aufnehmen zu können.
Bspw:
Folgende Projekte starten: [Hamburg]; [...]; [...]
Für Anregungen, die mir den Raum zum tüffteln lassen, wäre ich super dankbar. Sobald ich in der Lage dazu bin, möchte ich mein (leider noch nicht ausreichend vorhandenes) VBA-Wissen gerne dem Forum zur Verfügung stellen.
Ich bedanke mich schonmal vielmals im Voraus und wünsche Euch noch einen schönen Tag.
VG, Christoph