Hello,

I hope someone could help me with my VBA-Makro, which Ifound on the internet.
It generates an Email in Outlook, reads some strings and writes some text.Works great for me.

Here is the code so far:

Sub ProjectMail()

Dim Vorgang AsLong, ATaskName As String, ATaskStart As String
Dim AProjectNameAs String

Set outl =CreateObject("Outlook.Application")

Set Mail =outl.CreateItem(olMailItem)
Vorgang =ActiveCell.Task.ID
ATaskName =ActiveProject.Tasks(Vorgang).Name
ATaskStart =ActiveProject.Tasks(Vorgang).Start
AProjectName =ActiveProject.Name
ATaskRessourcen =ActiveProject.Tasks(Vorgang).ResourceNames
Mail.Subject ="Erinnerung: " & ATaskName
Mail.Body ="Hallo ," & Chr(13) & Chr(13) _
&"am " & ATaskStart & " startet(e) der Vorgang "& ATaskName _
&" im Projekt " & AProjectName & "." & Chr(13)& Chr(13) _
&ATaskRessourcen & "Ich bitte um Informationen zum aktuellen Stand derDinge."
Mail.To =""
Mail.CC =""
Mail.Display
Set outl = Nothing
Set Mail = Nothing
End Sub

Now I want to fill the fields „Mail.To“ and „Mail.CC“with the information (which are names of team members) form two columns (whichare additional text columns). Can anyone help me please.
I don’t know how to get the fieldnames for VBA out of Project.


Thank you very much.

Best regards
Thorsten