Office: (Office 2010) Zusätzlicher Emailempfänger wenn Zelle ein bestimmter Wert

Hallo

Habe hier ein selbstgemachtes excel Formular das wenn versendet an eine standart Emailadresse versendet wird.

Nun so das Formular so abgeändert werden das wenn eine bestimmte Zelle einen bestimmten Wert, Text enthällt zwei weitere Empfänger hinzu kommen sollen.

Wie funktioniert das in diesem Fall? Gibt es dafür eine Lösung.

Code:

ReDim Empfaenger(1 To 1)
Empfaenger(1) = "1.empfänger@yahoo.de"
'Empfaenger(2) = "2.empfänger@yahoo.de"
ihart = Worksheets(1).Cells(1, 1)
ihnr = Worksheets(1).Cells(1, 2)
planer = Worksheets(1).Cells(2, 1)
ausfab = Worksheets(1).Cells(1, 3)
'status = Worksheets(1).Cells(6, 4)
Betreff = planer & "_" & " Planung_IH_" & ihnr & "_" & ihart & "_" & " start_ " & ausfab
Text1 = "Ausführungsplanung von: "
DATEIANHANG = dateiname
ABSENDER = uname

On Error GoTo Err_UseLotus
Dim SessionNotes As Object, NotesDB As Object, NotesDoc As Object
Set SessionNotes = CreateObject("Notes.NOTESSESSION")
Set NotesDB = SessionNotes.GETDATABASE("", "")
NotesDB.OPENMAIL
If NotesDB.IsOpen = False Then
MsgBox "Bitte melden Sie sich zunächst vollständig in Notes an!", vbInformation + vbOKOnly
Exit Sub
End If

Set NotesDoc = NotesDB.CREATEDOCUMENT
With NotesDoc
    .Form = "Memo"
    .Subject = Betreff
    .sendto = Empfaenger
    '.copyto = ' Kopie an
    '.blindcopyto= Blindkopie
    .Body = Text1 & ABSENDER & vbCrLf & vbCrLf 'Text
    '.body = Text1 & vbCrLf & ABSENDER
    '.DefaultMailSaveOption = 0
    '.MailSaveOption = 0
    .DeliveryReport = "B"
    .Importance = "2"
    '.logo = "Barmenia"
    .SAVEMESSAGEONSEND = True ' bei True wird ein Exemplar in Notes in Gesendet gestellt
    .ReturnReceipt = "1"
    .Sign = "1"
    '.encrypt ="0"
    '.Principal = session.UserName
    '.viewicon ="74"
    '.from = session.UserName
    '.SaveOptions = 0
    '.SecureMail = ""
    '.SenderTag = "F"

''''''''''''''''''''''''''''' Dateianhang''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const embed_ATT = 1454
Set rtitem = .CREATERICHTEXTITEM("DATEIANHANG")
Set EmbeddedObject = rtitem.EMBEDOBJECT(embed_ATT, "", DATEIANHANG, "DATEIANHANG")
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''
    .Send False
End With
Set SessionNotes = Nothing
Set NotesDB = Nothing
Set NotesDoc = Nothing
Set rtitem = Nothing
Set EmbeddedObject = Nothing
MsgBox ("Ihre Mail wurde erfolgreich verschickt!")


Exit_UseLotus:
Exit Sub
Err_UseLotus:
MsgBox Err.Description
Resume Exit_UseLotus
End Sub