Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 266 fois - Téléchargée 57 fois
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
Et Merci à xenografter aussi
pourriez vous m'aider s.v.p ?
Les boucles portent le même nom, et l'une d'elles n'est pas fermée :
Dim locVarI as Integer, locVarJ as Integer
MAPISession1.SignOn
With MAPIMessages1
.MsgIndex = -1
For locVarI = 0 to NbPersonne - 1
.RecipIndex = locVarI
.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
next locVarI
.SessionID = MAPISession1.SessionID
.Send
End With
MAPISession1.SignOff
Pour le reste, j'ai pas testé.
desole
le seul petit problème que j'ai, c'est que je n'arrive pas à envoyer des fichiers txt.
J'arrive à envoyer tout les autres format, mais pas celui là.
çà c'est bizarre mais sinon il super cool.
si je pouvais te mettre une note, elle serait de 9/10.
A+ tout le monde
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.