Lanceur des mails
cs_ihsen
Messages postés
7
Date d'inscription
jeudi 27 janvier 2005
Statut
Membre
Dernière intervention
9 octobre 2006
-
22 juin 2005 à 13:58
vaneri2004 Messages postés 28 Date d'inscription mardi 20 janvier 2004 Statut Membre Dernière intervention 17 février 2006 - 22 juin 2005 à 15:34
vaneri2004 Messages postés 28 Date d'inscription mardi 20 janvier 2004 Statut Membre Dernière intervention 17 février 2006 - 22 juin 2005 à 15:34
1 réponse
vaneri2004
Messages postés
28
Date d'inscription
mardi 20 janvier 2004
Statut
Membre
Dernière intervention
17 février 2006
22 juin 2005 à 15:34
22 juin 2005 à 15:34
Tu peux utilisé les MAPI, à ce moment là tu passeras par outlook et tes mails seront envoyés ;)
Private mMMail As MAPIMessages
Private mSMail As MAPISession
dim strRepertoire as String
'où mMMailP et mSMailP sont ls objets MAPI session et MAPIMessage que tu as créés sur ta 'form
Set mMMail = mMMailP
Set mSMail = mSMailP
On Error GoTo MAPIErreur
If mSMail.SessionID = 0 Or IsNull(mSMail.SessionID) Then
OpenAccount
End If
strRepertoire ="Répertoire contenant l'ensemble des fichiers que tu veux attachés"
'permet d'envoyer les fichiers attachés
With mMMail
.Compose
.RecipAddress = "adresseEmail"
.MsgSubject = "sujet"
.MsgNoteText = "Message"
'permet d'aller rechercher l'ensemble des fichiers d'un répertoire
NomFichier = Dir(strRepertoire & "*.*")
Do Until NomFichier = ""
.AttachmentIndex = .AttachmentCount
.AttachmentPosition = .AttachmentCount
.AttachmentPathName = strRepertoire & NomFichier
NomFichier = Dir
Loop
.Send
End With
Private mMMail As MAPIMessages
Private mSMail As MAPISession
dim strRepertoire as String
'où mMMailP et mSMailP sont ls objets MAPI session et MAPIMessage que tu as créés sur ta 'form
Set mMMail = mMMailP
Set mSMail = mSMailP
On Error GoTo MAPIErreur
If mSMail.SessionID = 0 Or IsNull(mSMail.SessionID) Then
OpenAccount
End If
strRepertoire ="Répertoire contenant l'ensemble des fichiers que tu veux attachés"
'permet d'envoyer les fichiers attachés
With mMMail
.Compose
.RecipAddress = "adresseEmail"
.MsgSubject = "sujet"
.MsgNoteText = "Message"
'permet d'aller rechercher l'ensemble des fichiers d'un répertoire
NomFichier = Dir(strRepertoire & "*.*")
Do Until NomFichier = ""
.AttachmentIndex = .AttachmentCount
.AttachmentPosition = .AttachmentCount
.AttachmentPathName = strRepertoire & NomFichier
NomFichier = Dir
Loop
.Send
End With
