VBA OL2k: Keine Fehlermeldung, aber auch kein E-Mail-Versand

Hallo,

ich habe eine Form gebaut, mit der ich E-mails versenden möchte. Möchte, dass an alle angegebenen E-mail-Adressen (z.B. balabla@web.de; dada@yahooe.com; mail@mailserver.de)
, die in den Textfeldern txtAN, txtCC und txtBCC stehen, gesendet wird. Habe bisher mit Hilfe von Comboboxen versendet und hat immer geklappt. Möchte nur noch mit Textfeldet arbeiten.
Bei meinem Code wird zwar keine Fehlermeldung anzeigt, aber es erfolgt auch kein Versand der E-mail.

Hat jemand eine Idee, woran das liegt? Habe ich etwas vergessen?
Müssen noch irgendwelche Veweise durchgeführt werden? Muss in Outlook noch etwas einegstellt werden?
Stimmt an der Function EmailSenden etwas nicht? Ich finde keinen Fehler.

Hier der Code, der für den E-Mail-Versandt zuständig ist:

Private Sub cmdSenden_Click()
Dim iAN As Integer, iCC As Integer, iBCC As Integer
Dim spAN() As String, spCC() As String, spBCC() As String

spAN = Split(Me.txtAN.Text, \“;\“)
spCC = Split(Me.txtCC.Text, \“;\“)
spBCC = Split(Me.txtBCC.Text, \“;\“)

For iAN = 0 To UBound(spAN()) – 1
For iCC = 0 To UBound(spCC()) – 1
For iBCC = 0 To UBound(spBCC()) – 1
If Trim(spAN) <> \“\“ Or Trim(spCC) <> \“\“ Or Trim(spBCC) <> \“\“ Then
EmailSenden Me.cmbAN.List(iAN), Me.cmbCC.List(iCC), Me.cmbBCC.List(iBCC), Me.txtBetreff, Me.rtNachricht, Me.rtAktuelles, Me.txtLogo, Me.txtNews, Me.txtAnlage
Else
MsgBox \“Sie müssen in die Felder \’An\‘, \’Cc\‘ oder \’Bcc\‘ mindestens eine gültige E-Mail-Adresse eingeben\“, vbExclamation
End If
Next iBCC
Next iCC
Next iAN

MsgBox \“E-Mail wurde erfolgreich versandt\“, vbInformation
Me.txtAN.Text = \“\“
Me.txtAN.SetFocus
Me.txtCC.Text = \“\“
Me.txtBCC.Text = \“\“

End Sub

Private Sub EmailSenden(sAn As String, Optional sCC As String, Optional sBCC As String, Optional sBetreff As String, Optional sNachricht As String, Optional sAktuelles As String, Optional sLogo As String, Optional sNews As String, Optional sDateiAnhang As String, Optional sPr As Long)

Dim sTempNachricht As String
Dim sTempAktuelles As String
Dim NachrichtOL As Outlook.MailItem
Dim meinCC As Recipient
Dim meinBCC As Recipient
Set AppOL = GetObject(, \“Outlook.Application\“)
Set NameSpaceOL = AppOL.GetNamespace(\“MAPI\“)
Set NachrichtOL = AppOL.CreateItem(olMailItem)
Set meinCC = NachrichtOL.Recipients.Add(sCC)
meinCC.Type = 2
Set meinBCC = NachrichtOL.Recipients.Add(sBCC)
meinBCC.Type = 3
With NachrichtOL
.Recipients.Add sAn
.CC = sCC
.BCC = sBCC
.Subject = sBetreff

sTempNachricht = sNachricht
sTempNachricht = Replace$(sTempNachricht, vbCrLf, \“
\“)
sTempNachricht = Replace$(sTempNachricht, vbNewLine, \“
\“)
sTempNachricht = Replace$(sTempNachricht, \“ \“, \“  \“)

sTempAktuelles = sAktuelles
sTempAktuelles = Replace$(sTempAktuelles, vbCrLf, \“
\“)
sTempAktuelles = Replace$(sTempAktuelles, vbNewLine, \“
\“)
sTempAktuelles = Replace$(sTempAktuelles, \“ \“, \“  \“)

.HTMLBody = \“\“ & Chr(13) & _
\“

\“ & _
\“

\“ & _
\“

\“ & Chr(13) & _
\“

\“
If sDateiAnhang <> \“\“ Then
.Attachments.Add Source:=sDateiAnhang, Position:=Len(txtAnlage) + 20
End If
.Send
End With
End Sub

mfg
BenC