UTILISER LE MAPI POUR ENVOYER UN MAIL

Commentaire de vdu78 le 18/01/2002 23:21:35

Ce programme est très bien et très simple d'utilisation. Par contre, avec Office XP, une fenêtre apparait au moment du send, indiquant "un programme tente automatiquement d'envoyer des courriers en votre nom. Si cette action est inatendue, il se eput qu'il s'agisse d'un virus. Dans ce cas, choisissez non." 3 boutons sont alors proposés : oui, non, aide.
Comment faire pour ne plus faire afficher cette fenêtre qui empêche tout envoi automatique.
Merci de votre aide.

Commentaire de adsl44 le 12/03/2002 16:03:14

Peut on utiliser MAPI dans un module sans etre obligé de créer un form avec  1 MAPISession et 1 MAPIMessage.

exemple :
Public Function EnvoiMail(nomDestinataire As String, adresseDestinataire As String, sujetMail As String, texteMail As String)
    Dim MAPISession1 As MAPISession
    Dim MAPIMessages1 As MAPIMessages
    
    MAPISession1.SignOn

Commentaire de cristiandan le 14/03/2002 11:40:06

Bonjour,
toujours l'erreur 32002 quand j'essaie d'attacher plusieurs pièces jointes.
  While i < List1.ListCount
  .AttachmentIndex = MAPIMessages1.AttachmentCount
  .AttachmentPathName = List1.List(i)
  i = i + 1
  Wend
Correct?????

Commentaire de Jordel le 14/03/2002 17:05:30

salut encore...
J'ai encore cette foutue erreur 32002 quand j'essaie d'envoyer un mail...

Mais comment la resoudre mes amis ?

Commentaire de Gestmed le 22/04/2002 11:46:51

Salut !
Comment faire pour demander l'accusé de réception ? ou sinon fonctionne bien

Commentaire de epoc le 06/02/2003 18:54:07

=> pour carpediem : tu vas dans outlook/outils/options/sécurité et tu décoches "m'avertir kan d'autres applcations essayent d'envoyer des messages de ma part"

Commentaire de mirylou le 13/01/2004 22:44:14

Est-ce qu'il y a quelqu'un qui a réussi a envoyer un mail avec un fichier joint sans obtenir l'erreur 32002?

Commentaire de fr64 le 17/02/2004 15:50:38

Pour eviter l'affichage du message d'Outlook : "Une application tente d'accéder à vos paramètres...", mettre true comme paramétre de la méthode Send:
MAPIMessage1.send True

Commentaire de fredenho le 29/03/2004 16:36:20

Bonjour,
J'ai deja envoyé des mails avec le composant Winsock, mais j'aimerais utiliser le Mapi. J'essaye le code au dessus mais des que je passe sur la ligne "MAPISession1.SignOn", il m'ouvre l'assistant de connexion Internet....Est ce que quelqu'un pourrais me dire pourkoi?? et comment virer cette fenetre, de sorte que mon mail soit envoyer de facon "transparente"!!!
Merki beaucoup!!

Commentaire de clementpat le 13/08/2005 00:24:25

Un des truc le plus utile que je viens d'apprendre 10/10
ceux qui n'on pas mis 10 ne se sont pas aperçu de l'utilité de cette source .

Commentaire de dabro le 18/10/2005 09:18:49

'Sur une page Form1 placer un contrôle MAPISession1 et un contrôle MAPIMessages1
'Pour envoyer à plusieurs destinataires, et copies conforme, et copies conformes invisibles

Sub EcrireEmail()

On Error GoTo ErrMail

'Déclaration des variables

Dim msg$, Objet$, FichierJoint1$, FichierJoint2$
Dim DestinataireEmail$, DestinataireEmailCopie$, DestinataireEmailInvisible$

'Pour les destinataires, il suffit de boucler sur une lise et d'insérer un "; " entre chaque destinataire
DestinataireEmail$ = "coucou1@pouetpouet.com; coucou2@pouetpouet.com; coucou3@pouetpouet.com"
DestinataireEmailCopie$ = "copie1@gvl.com; copie2@gvl.com"
DestinataireEmailInvisible$ = "copie1.invisible@gvl.com; copie2.invisible@gvl.com"

'Eventuel fichier joint
FichierJoint1$ = "c:\Fichier1.txt"
FichierJoint2$ = "c:\Fichier2.txt"

'Objet du message
Objet$ = "Texte de l'objet du mail"

'Texte du message
msg = "Bonjour !" & vbCrLf & vbCrLf
msg = msg & "Un petit coucou depuis Visual Basic !" & vbCrLf
msg = msg & "Voilà le fichier " & FichierJoint$


'Lancement de la procédure. Si on ne donne pas de destinataire, le carnet d'adresse est ouvert.

Form1.MAPISession1.SignOn
With Form1.MAPIMessages1
  Form1.Refresh
  .MsgIndex = -1
  'Permet de choisir un destinataire dans le carnet d'adresses si DestMail$ est vide
  If DestinataireEmail$ = "" Then
    Screen.MousePointer = 0
    Form1.Refresh
    Form1.MAPIMessages1.Show
    Form1.Refresh
    Screen.MousePointer = 11
    DestinataireEmail$ = Form1.MAPIMessages1.RecipAddress
    If Left(DestinataireEmail$, 5) = "SMTP:" Then DestinataireEmail$ = Right(DestinataireEmail$, Len(DestinataireEmail$) - 5)
    Form1.Refresh
  End If
  'Accusé de réception
  .MsgReceiptRequested = True
  
  'Destinataire principal
  .RecipIndex = 0
  .RecipType = mapToList
  .RecipDisplayName = DestinataireEmail$ 'Adresse e-mail du destinataire principal
  
  'Destinataire en copie conforme
  .RecipIndex = 1
  .RecipType = mapCcList
  .RecipDisplayName = DestinataireEmailCopie$ 'Adresse e-mail du destinataire Destinataire en copie conforme
  
  'Destinataire en copie conforme invisible
  .RecipIndex = 2
  .RecipType = mapBccList
  .RecipDisplayName = DestinataireEmailInvisible$    'Adresse e-mail du destinataire en copie conforme invisible
  
  .MsgSubject = Objet$                    'Sujet du mail
  
  'Message avec 2 fichiers joints
  .MsgNoteText = Space(2) & msg$          'Space(2) pour 2 fichiers joints, 5 pour 5 fichiers... et le message du mail

  .AttachmentIndex = 0
  .AttachmentPosition = 0
  .AttachmentPathName = FichierJoint1$

  .AttachmentIndex = 1
  .AttachmentPosition = 1
  .AttachmentPathName = FichierJoint2$

  
  'Message sans fichier joint
  '.MsgNoteText = msg$                     'Message du mail
  
  .SessionID = Form1.MAPISession1.SessionID
  Screen.MousePointer = 0

  'Pour éviter le message "un programme tente automatiquement d'envoyer des courriers en votre nom..."
  'Mettre Send True
  .Send True
End With
Form1.MAPISession1.SignOff

MsgBox "Envoyé !" & vbCrLf & vbCrLf & "Si votre messagerie n'est pas active, il faut le faire et choisir d'envoyer les messages contenus dans la boîte d'envoi.", vbInformation, "Mail expédié"

Exit Sub

ErrMail:
Screen.MousePointer = 0

Select Case Err
  Case 32001
    MsgBox "Le message n'a pas été envoyé. Processus annulé par l'utilisateur.", vbExclamation, "Message NON envoyé !"
    Form1.MAPISession1.SignOff
    Exit Sub
  
  Case 32003
    MsgBox "Le message n'a pas été envoyé. Echec de la connexion.", vbExclamation, "Message NON envoyé !"
    Form1.MAPISession1.SignOff
    Exit Sub
  
  Case 32026
    MsgBox "Le message n'a pas été envoyé.", vbExclamation, "Message NON envoyé !"
    fMain.MAPISession1.SignOff
    Exit Sub

  Case Else
    MsgBox "Erreur " & Err & " " & Error
    Form1.MAPISession1.SignOff
    Exit Sub

End Select

End Sub

Commentaire de ifaza le 04/08/2006 12:33:03

il faut mettre devant mapimessage.send la valeur true

Commentaire de devforce1 le 20/09/2006 11:14:55

Apres récupération d'un code pour Mapi d'un autres programmes j'ai visiblement trouvé comment resoudre mon soucis.
Il faut utilisé la methode mapimessage.Compose qui vide le tampon de composition et reassigne la valeur -1 a la propriété Msgindex.

J'espere que ca pourra servir a d'autres. ;)

A bientot

Commentaire de sebauggiv le 15/06/2007 14:36:50

bonjour
j'ai l'erreur d'execution 48389
??? j'ai pourtant copier le code source d'origine et rajouté les 2 contoles. Help

Commentaire de VestaX le 26/03/2008 17:20:19

ce code tu dois le mettre entre

Private Sub Form_Load() et End Sub c'est bien ca? et si oui, il faut mettre quoi entre Private Sub Command1_Click() et End Sub ???

désolé, mais je débute, j'ai du mal a apprendre