Mails per Mapi-Control

11/07/2008 - 23:31 von Ahmed Martens | Report spam
Hallo Leute,

ich habe folgende Funktion und ich bekomme es einfach nicht hin die
Empfànger,CC und BCC einzusteuern.

Wie bekomme ich die Mailadressen richtig übergegen?
Alle Felder bleiben leer.
Kann mir jemand vielleicht auf die Sprünge helfen?
Danke schon einmal im voraus.

Gruß Ahmed

Hier mein Code:


frmMapiMail.txtEmpfànger="empf1@test.de;empf2@test.de;empf3@test.de"
frmMapiMail.txtCC="CCempf1@test.de;CCempf2@test.de;CCempf3@test.de"
frmMapiMail.txtBCC ="BCCempf1@test.de;BCCempf2@test.de;BCCempf3@test.de"
frmMapiMail.txtBetreff="Mein Betrefftext"



Folgende Aussgangssituation:

Public Sub EMail()
Dim strNachrichtentext As String
Dim i As Long
Dim tmpStr() As String

10 On Error GoTo EMail_Error


Dim Empfànger As String
Dim CC As String
Dim BCC As String
Dim Betreff As String



Empfànger = frmMapiMail.txtEmpfànger
CC = frmMapiMail.txtCC
BCC = frmMapiMail.txtBCC
Betreff = frmMapiMail.txtBetreff



20 With frmMapiMail

30 strNachrichtentext = ReadFile(.txtMailvorlage)
40 If strNachrichtentext <> "" Then
50 strNachrichtentext = fncAddAnlage(strNachrichtentext,
False)
60 End If
70 With .MAPISession1
' Benutzername und Passwort (für das Mailkonto)
' .UserName = "Ihr Name"
' .Password = "Ihr Kennwort"

80 .SignOn

' SessionID
90 frmMapiMail.MAPIMessages1.SessionID = .SessionID
100 End With

' Mail senden
110 With frmMapiMail.MAPIMessages1
' Neue Nachricht
120 .Compose

tmpStr() = Split(Empfànger, ";", , vbBinaryCompare)
'Empfànger
For i = 0 To UBound(tmpStr())
.RecipIndex = i
.RecipDisplayName = tmpStr(i)
.RecipAddress = tmpStr(i)
' Empfànger auf normale To-Liste setzen
.RecipType = mapToList
Next

'CC
Erase tmpStr()
tmpStr() = Split(CC, ";", , vbBinaryCompare)

For i = 0 To UBound(tmpStr())
' Daten angeben
.RecipIndex = i
.RecipDisplayName = tmpStr(i)
.RecipAddress = tmpStr(i)
' Empfànger auf normale To-Liste setzen
.RecipType = mapCcList
Next

'BCC
Erase tmpStr()
tmpStr() = Split(BCC, ";", , vbBinaryCompare)

For i = 0 To UBound(tmpStr())
' Einen neuen ccEmpfànger hinzufügen
.RecipIndex = i
.RecipDisplayName = tmpStr(i)
.RecipAddress = tmpStr(i)
' Empfànger auf normale To-Liste setzen
.RecipType = mapBccList
Next

' Betreff
140 .MsgSubject = Betreff

' Nachricht selbst
150 .MsgNoteText = strNachrichtentext

' Namen auflösen
160 '.ResolveName

'Anlagen hinzufügen
170 For i = 0 To UBound(ATT())
180 If ATT(i) <> "" Then
190 .AttachmentIndex = i
200 .AttachmentPosition = i
210 .AttachmentPathName = ATT(i)
220 End If
230 Next



240 On Error Resume Next

' Nachricht versenden
' und Dialogfeld anzeigen
250 .Send True


260 End With

270 End With
280 Call Kill_Mail_Anlagen
290 Unload frmMapiMail

300 On Error GoTo 0
310 Exit Sub

EMail_Error:

320 If Err.Number = 32001 Then Resume Next
330 MsgBox "Fehlernr.: " & Err.Number & " (" & Err.Description &
") in Prozedur EMail von Modul mdlMail", , "Fehler in Zeile: " & Erl

End Sub


Gruß Ahmed

Antworten bitte nur in der Newsgroup
 

Lesen sie die antworten

#1 Ahmed Martens
12/07/2008 - 09:56 | Warnen spam
Am Fri, 11 Jul 2008 23:31:50 +0200 schrieb Ahmed Martens:

Hallo Leute,

ich habe folgende Funktion und ich bekomme es einfach nicht hin die
Empfànger,CC und BCC einzusteuern.

Wie bekomme ich die Mailadressen richtig übergegen?
Alle Felder bleiben leer.
Kann mir jemand vielleicht auf die Sprünge helfen?
Danke schon einmal im voraus.

Gruß Ahmed

Hier mein Code:


frmMapiMail.txtEmpfànger=";;"
frmMapiMail.txtCC=";;"
frmMapiMail.txtBCC =";;"
frmMapiMail.txtBetreff="Mein Betrefftext"



nach endlosem rumprobieren hier anscheinend die Lösung:

'To
.RecipIndex = 0
.RecipDisplayName = Empfànger
.RecipAddress = empfànge
'Empfànger auf normale To-Liste setzen
.RecipType = mapToList


'CC
.RecipIndex = 1
.RecipDisplayName = CC
.RecipAddress = CC
' Empfànger auf normale To-Liste setzen
.RecipType = mapCcList

'BCC
.RecipIndex = 2
.RecipDisplayName = BCC
.RecipAddress = BCC
' Empfànger auf normale To-Liste setzen
.RecipType = mapBccList


Es muss wohl einfach der .RecipIndex gesetzt werden. Dabei ist
.RecipIndex = 0 => Standardempfànger
.RecipIndex = 1 => CC-Empfànger
.RecipIndex = 2 => BCC-Empfànger


Gruß Ahmed

Antworten bitte nur in der Newsgroup

Ähnliche fragen