Je développe une appli d'envoi de mail automatique. Mes envois de mail
fonctionnenent parfaitement. Mais sur le PC il y a deux comptes de
messageries. Comment faire pour utiliser celui qui n'est pas le compte par
défaut ?
Voici le code de ma routine d'envoi:
Public Sub MsgEmail(destin() As String, nbdestin, subj, attach() As String,
nbfic, msgtxt)
frmMain.MAPISession1.SignOn
With frmMain.MAPIMessages1
.MsgIndex = -1
For i = 0 To nbdestin - 1
.RecipIndex = i
.RecipAddress = destin(i)
Next
.MsgSubject = subj
.MsgNoteText = msgtxt
For k = 0 To nbfic - 1
.AttachmentIndex = k
.AttachmentPathName = attach(k)
Next
.SessionID = frmMain.MAPISession1.SessionID
.Send True
End With
frmMain.MAPISession1.SignOff
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Paskal
Bonjour yll007
C'est du ressort d'outlook Office, interroge le forum qui y est dédié.
-- @+ Paskal [MVP] http://www.faqOE.com
Je développe une appli d'envoi de mail automatique. Mes envois de mail fonctionnenent parfaitement. Mais sur le PC il y a deux comptes de messageries. Comment faire pour utiliser celui qui n'est pas le compte par défaut ? Voici le code de ma routine d'envoi:
Public Sub MsgEmail(destin() As String, nbdestin, subj, attach() As String, nbfic, msgtxt)
frmMain.MAPISession1.SignOn With frmMain.MAPIMessages1
.MsgIndex = -1 For i = 0 To nbdestin - 1 .RecipIndex = i .RecipAddress = destin(i) Next .MsgSubject = subj .MsgNoteText = msgtxt For k = 0 To nbfic - 1 .AttachmentIndex = k .AttachmentPathName = attach(k) Next .SessionID = frmMain.MAPISession1.SessionID .Send True End With frmMain.MAPISession1.SignOff
End Sub
Merci d'avance
Bonjour yll007
C'est du ressort d'outlook Office, interroge le forum qui y est dédié.
--
@+
Paskal [MVP]
http://www.faqOE.com
Je développe une appli d'envoi de mail automatique. Mes envois de mail
fonctionnenent parfaitement. Mais sur le PC il y a deux comptes de
messageries. Comment faire pour utiliser celui qui n'est pas le
compte par défaut ?
Voici le code de ma routine d'envoi:
Public Sub MsgEmail(destin() As String, nbdestin, subj, attach() As
String, nbfic, msgtxt)
frmMain.MAPISession1.SignOn
With frmMain.MAPIMessages1
.MsgIndex = -1
For i = 0 To nbdestin - 1
.RecipIndex = i
.RecipAddress = destin(i)
Next
.MsgSubject = subj
.MsgNoteText = msgtxt
For k = 0 To nbfic - 1
.AttachmentIndex = k
.AttachmentPathName = attach(k)
Next
.SessionID = frmMain.MAPISession1.SessionID
.Send True
End With
frmMain.MAPISession1.SignOff
C'est du ressort d'outlook Office, interroge le forum qui y est dédié.
-- @+ Paskal [MVP] http://www.faqOE.com
Je développe une appli d'envoi de mail automatique. Mes envois de mail fonctionnenent parfaitement. Mais sur le PC il y a deux comptes de messageries. Comment faire pour utiliser celui qui n'est pas le compte par défaut ? Voici le code de ma routine d'envoi:
Public Sub MsgEmail(destin() As String, nbdestin, subj, attach() As String, nbfic, msgtxt)
frmMain.MAPISession1.SignOn With frmMain.MAPIMessages1
.MsgIndex = -1 For i = 0 To nbdestin - 1 .RecipIndex = i .RecipAddress = destin(i) Next .MsgSubject = subj .MsgNoteText = msgtxt For k = 0 To nbfic - 1 .AttachmentIndex = k .AttachmentPathName = attach(k) Next .SessionID = frmMain.MAPISession1.SessionID .Send True End With frmMain.MAPISession1.SignOff
