UN MAIL VIA MAPI A PLUSIEURS DESTINATAIRES !
BOUL
-
16 mai 2000 à 04:11
Tchung Messages postés 3 Date d'inscription jeudi 19 mai 2005 Statut Membre Dernière intervention 4 juillet 2006 - 4 juil. 2006 à 10:06
Tchung Messages postés 3 Date d'inscription jeudi 19 mai 2005 Statut Membre Dernière intervention 4 juillet 2006 - 4 juil. 2006 à 10:06
A voir également:
- UN MAIL VIA MAPI A PLUSIEURS DESTINATAIRES !
- Flash mail ✓ - Forum Flash
- Récupérer une adresse mail?? - Forum Flash
- Exemple excel alerte mail date échéance - Forum VBA Office (Excel, Word ...)
- Php mail cc - Forum PHP
- Test adresse mail ✓ - Forum PHP
2 réponses
En reprenant le code exemple et en utilisant la fonction suivante :
Une fonction qui à partir des composants MAPISession et MAPIMessage permet de coller plusieurs destinataires.
aAddress = "opat@youpi.com, test@ollee.com"
Private Sub PrepareSendTo(recipType As Integer, aAddress As String, aResolveAddress As Boolean)
Dim i As Integer
Dim strAdresse As String
Dim index As Integer
index = 0
Do
i = InStr(1, aAddress, ",")
If i = 0 Then
strAdresse = aAddress
Else
strAdresse = Mid(aAddress, 1, i - 1)
aAddress = Mid(aAddress, i + 1)
End If
MainForm.cMAPIMessage.recipType recipType 'Type de destinataire principal 1, copie = 2 , blind copie =3
MainForm.cMAPIMessage.RecipIndex = Index 'Positionner sur le 1err
MainForm.cMAPIMessage.RecipAddress = aAddress 'Adresse destinataire
MainForm.cMAPIMessage.RecipDisplayName = aAddress 'Nom du destinataire
MainForm.cMAPIMessage.AddressResolveUI = aResolveAddress
MainForm.cMAPIMessage.ResolveName 'Recherche nom sur annuaire interne exchange
Index = Index + 1
Loop While i > 0
End Sub
Une fonction qui à partir des composants MAPISession et MAPIMessage permet de coller plusieurs destinataires.
aAddress = "opat@youpi.com, test@ollee.com"
Private Sub PrepareSendTo(recipType As Integer, aAddress As String, aResolveAddress As Boolean)
Dim i As Integer
Dim strAdresse As String
Dim index As Integer
index = 0
Do
i = InStr(1, aAddress, ",")
If i = 0 Then
strAdresse = aAddress
Else
strAdresse = Mid(aAddress, 1, i - 1)
aAddress = Mid(aAddress, i + 1)
End If
MainForm.cMAPIMessage.recipType recipType 'Type de destinataire principal 1, copie = 2 , blind copie =3
MainForm.cMAPIMessage.RecipIndex = Index 'Positionner sur le 1err
MainForm.cMAPIMessage.RecipAddress = aAddress 'Adresse destinataire
MainForm.cMAPIMessage.RecipDisplayName = aAddress 'Nom du destinataire
MainForm.cMAPIMessage.AddressResolveUI = aResolveAddress
MainForm.cMAPIMessage.ResolveName 'Recherche nom sur annuaire interne exchange
Index = Index + 1
Loop While i > 0
End Sub
Tchung
Messages postés
3
Date d'inscription
jeudi 19 mai 2005
Statut
Membre
Dernière intervention
4 juillet 2006
4 juil. 2006 à 10:06
4 juil. 2006 à 10:06
Ton code marche bien sauf une petite erreur :
Il faut remplacer
"MainForm.cMAPIMessage.RecipAddress =aAddress 'Adresse destinataire"
par
"MainForm.cMAPIMessage.RecipAddress = strAdresse'Adresse destinataire"
ça m'a bien dépanné quand même ! ;)
Il faut remplacer
"MainForm.cMAPIMessage.RecipAddress =aAddress 'Adresse destinataire"
par
"MainForm.cMAPIMessage.RecipAddress = strAdresse'Adresse destinataire"
ça m'a bien dépanné quand même ! ;)
