Mapi (mail plusieurs personnes et pièces jointes)

Contenu du snippet

Bon alors, j'etais comme vous je voulais utiliser MAPI mais pas tres facile.
Enfin voila le code pour pouvoir envoyer plusieurs pieces jointes ainsi qu'a plusieurs expediteurs. Ce code a été teste et normalement fonctionne.

Source / Exemple :


Dim locVarI as Integer, locVarJ as Integer

MAPISession1.SignOn
With MAPIMessages1
.MsgIndex = -1
For locVarJ = 0 to NbPersonne - 1
  .RecipIndex = locVarJ
  .RecipDisplayName = "Nom de la personne"
  .RecipAddress = "Adresse de la personne"
  .MsgSubject = "Sujetb du mail"
  For locVarJ = 0 To NbPieceJointe - 1
    .AttachmentIndex = locVarJ
    .AttachmentName = "Nom du fichier"
    .AttachmentPathName = "Chemin du fichier"
  Next locVarJ
.SessionID = MAPISession1.SessionID
.Send
End With
MAPISession1.SignOff

Conclusion :


La 1er boucle "for" (locVarJ) permet de creer les personnes.
La 2eme boucle "for" (locVarI) permet de creer les pieces jointes.

RecipIndex permet d'indexer les personnes
(RecipIndex = 0 -> 1er personne etc...)
AttachmentIndex permet d'indexer les pieces jointes (AttachmentIndex = 0 -> 1er fichier etc ...)

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.