Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1344 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoi d'un mail avec VBA sous Excel

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Envoi d'un mail avec VBA sous Excel

n°506823
F22Raptor
Tête en l'air ...
Posté le 03-09-2003 à 21:53:16  profilanswer
 

Dans un tableau Excel j'ai  

      A       |       B       |     C
 adresse mail      sujet msg      texte msg


 
J'essaye de monter une macro qui m'envoie un mail (Outlook Express) pour chaque ligne de mon tableau.
 
J'ai trouvé un truc, mais ça crée le mail, ça ne l'envoie pas (il faut encore que je clique sur le bouton envoyer ensuite) :

Code :
  1. Sub envoi_mail()
  3. adresse = Range("a1" )
  4. sujet = Range("b1" )
  5. Message = Range("c1" )
  7. URLto = "mailto:" & adresse & "?subject=" & sujet & "&body=" & Message
  9. ActiveWorkbook.FollowHyperlink Address:=URLto
  11. End Sub


 
Qui aurait une idée, sachant qu'en fait j'aurai une liste d'emails d'environ 30 ou 40 personnes (je ferai une boucle qui ne figure pas dans le code ci dessus) et que je ne veux pas cliquer à chaque fois sur ENVOYER !!!


Message édité par F22Raptor le 03-09-2003 à 21:54:28

---------------
Is it a bird? Is it a plane? No it s F22Raptor !  -  I love flying because football, baseball, rugby, and golf only take one ball
mood
Publicité
Posté le 03-09-2003 à 21:53:16  profilanswer
 

n°507367
F22Raptor
Tête en l'air ...
Posté le 04-09-2003 à 14:30:37  profilanswer
 

:bounce:


---------------
Is it a bird? Is it a plane? No it s F22Raptor !  -  I love flying because football, baseball, rugby, and golf only take one ball
n°507370
Poipoi
Vive Grumly
Posté le 04-09-2003 à 14:36:31  profilanswer
 

si t'as oulook express regarde du côté de MAPI


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
n°507385
F22Raptor
Tête en l'air ...
Posté le 04-09-2003 à 14:50:36  profilanswer
 

Poipoi a écrit :

si t'as oulook express regarde du côté de MAPI

:??: skoi ça Mapi ?
Une fonction VBA ?


---------------
Is it a bird? Is it a plane? No it s F22Raptor !  -  I love flying because football, baseball, rugby, and golf only take one ball
n°507386
Poipoi
Vive Grumly
Posté le 04-09-2003 à 14:52:35  profilanswer
 
n°507779
F22Raptor
Tête en l'air ...
Posté le 04-09-2003 à 19:21:51  profilanswer
 

Poipoi a écrit :

http://www.google.fr/search?q=vb+s [...] l=fr&meta=
 
http://groups.google.fr/groups?hl= [...] b=wg&meta=

j'ai testé ceci :

Code :
  1. Sub cmdSend_Click()
  2.     On Error GoTo SendErrorMailError
  4.     ' Sign on to the mail system.
  5.     mpsErrorMail.UserName = txtUser.Text
  6.     mpsErrorMail.Password = txtPassword.Text
  7.     mpsErrorMail.SignOn
  9.     ' Send the message.
  10.     mpmErrorMail.SessionID = mpsErrorMail.SessionID
  11.     mpmErrorMail.Compose
  12.     mpmErrorMail.RecipDisplayName = txtToName.Text
  13.     mpmErrorMail.RecipAddress = txtToAddress.Text
  14.     mpmErrorMail.AddressResolveUI = False
  15.     mpmErrorMail.MsgSubject = txtSubject.Text
  16.     mpmErrorMail.MsgNoteText = txtBody.Text
  17.     mpmErrorMail.Send False
  19.     ' Sign off of the mail system.
  20.     mpsErrorMail.SignOff
  21.     Exit Sub
  23. SendErrorMailError:
  24.     ' There was an error sending the mail.
  25.     ' Just present the message.
  26.     MsgBox "Error " & Format$(Err.Number) & _
  27.         " sending mail." & vbCrLf & _
  28.         Err.Description
  29.     Exit Sub
  30. End Sub


 
mais ça ne marche pas : peux tu m'en dire plus sur Mapi ?
Cela ne nécessite t-il pas l'installation d'une macro complémentaire ou qq chose comme ça ? :??:  
 
 :jap:


---------------
Is it a bird? Is it a plane? No it s F22Raptor !  -  I love flying because football, baseball, rugby, and golf only take one ball
n°507897
Poipoi
Vive Grumly
Posté le 04-09-2003 à 21:55:11  profilanswer
 

tu dois rajouter la ref au bon OCX/DLL
 
ya pleins de trucs sur msdn et google... désolé mais je l'ai jamais fait sur Excel


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
n°508851
F22Raptor
Tête en l'air ...
Posté le 05-09-2003 à 18:04:27  profilanswer
 

apparemment je viens de comprendre !
 
Le composant MAPI doit être coché dans VBA, Gestionnaire de Compléments.
 
Problème : Je dois cocher Microsoft MAPI Controls 6.0 dans la liste des composants, mais rien n'apparaît dedans.
 
A l'install d'office, il ne me semble pas qu'il me propose d'ajouter des composants.
 
Comment fait on pour installer un composant MAPI ?
Ca se trouve où ces bêtes la ?


---------------
Is it a bird? Is it a plane? No it s F22Raptor !  -  I love flying because football, baseball, rugby, and golf only take one ball
n°677686
damdid
Posté le 19-03-2004 à 07:20:16  profilanswer
 

Salut,
 
Normalement, les composants MAPI s'installe en meme temps que le gestionnaire de mail (qui te demandera au passage de passer par défaut)
Pour le cas d'Excel, tu as la commande suivante :
"activeworkbook.sendmail "dest1@site.com, dest2@site.org", "sujet du mail", false"
 
Seul le premier argument est obligatoire.
Le deuxième, s'il n'existe pas, prend le nom du fichier
Le troisième est un booléen pour l'accusé de réception
 
Un truc, les deux premiers arguments doivent etre du type Variant (si tu passes par des variables)
 
A savoir qu'avec Outlook Express, il faut désactiver son alerte avant envoi (paramètres sécurité ou base de registre (WarnOnSend))
 
Ca devrait résoudre ton souci...

n°677772
MagicBuzz
Posté le 19-03-2004 à 09:46:31  profilanswer
 

Pour info, MAPI n'a aucun rapport avec OE, mais avec Exchange : c'est une couche qui permet de se connecter et ouvrir des sessions sur un Serveur Exchange en utilisant le profile de Outlook Express ou n'importe quelle autre version d'Outlook.
Je poste un exemple dès que la macro de merde sur laquelle je bosse a terminé. (peut pas ouvrir de fichier excel pendant ce temps...)

mood
Publicité
Posté le 19-03-2004 à 09:46:31  profilanswer
 

n°677775
MagicBuzz
Posté le 19-03-2004 à 09:48:41  profilanswer
 

PS: ET MAPI NE PEUT EN AUCUN CAS MARCHER SI ON UTILISE POP3, IMAP ou autre serveur de mail non Exchange ! C'est un protocole particulier. Vos trucs que vous avez posté sont nommés à tord MAPI, ça n'a rien à voir avec cet objet !


Message édité par MagicBuzz le 19-03-2004 à 09:49:08
n°677784
MagicBuzz
Posté le 19-03-2004 à 09:56:06  profilanswer
 

Voilà :
 
MAPI c'est "légèrement" plus compliqué...
 
Ca donne ça :
 
Module "Module1" :
 

Code :
  1. Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  3. Private Function GetWorkingFolder() As String
  4.     GetWorkingFolder = WorkingFolder
  5. End Function
  7. Public Sub sendMail(Recipient As String, message As String, tabFiles() As String)
  8.     Dim objSession As Object
  9.     Dim objMessage As Object
  10.     Dim objRecipient As Object
  11.     Dim objAttachments As Object
  12.     Dim lpBuff As String * 1024
  13.     Dim Login As String
  14.     Dim fso As Object
  15.    
  16.     Set fso = CreateObject("Scripting.FileSystemObject" )
  17.     If Recipient = "" Then
  18.         MsgBox ("No recipient. Can't send email !" )
  19.         Exit Sub
  20.     End If
  22.     GetUserName lpBuff, Len(lpBuff)
  23.     Login = Left$(lpBuff, (InStr(1, lpBuff, vbNullChar)) - 1)
  24.     lpBuff = ""
  25.     Set objSession = CreateObject("mapi.session" )
  26.    
  27.     On Error Resume Next
  28.     objSession.Logon "", "", False, False
  29.     If Err.Number <> 0 Or objSession.CurrentUser = "Unknown" Then
  30.         Err.Clear
  31.         Set objSession = Nothing
  32.         Set objSession = CreateObject("mapi.session" )
  33.         objSession.Logon profileName:=Login
  34.         If Err.Number <> 0 Or objSession.CurrentUser = "Unknown" Then
  35.             MsgBox ("Unable to send mail. Open Outlook and try again." )
  36.             Exit Sub
  37.         End If
  38.     End If
  39.     On Error GoTo 0
  40.    
  41.     Set objMessage = objSession.Outbox.Messages.Add
  42.     objMessage.Subject = "Automatically sent"
  43.     objMessage.Text = message
  44.    
  45.     ' Add files as attachement
  46.     Set objAttachments = objMessage.Attachments
  47.     For i = LBound(tabFiles) To UBound(tabFiles)
  48.         If Not (IsNull(tabFiles(i)) Or tabFiles(i) = "" ) Then
  49.             ' Test file exist
  50.             If fso.fileexists(tabFiles(i)) Then
  51.                 ' Add attachement
  52.                 objAttachments.Add Right(tabFiles(i), Len(tabFiles(i)) - InStrRev(tabFiles(i), "\" )), 0, , tabFiles(i)
  53.             End If
  54.         End If
  55.     Next
  56.    
  57.     Set objRecipient = objMessage.Recipients.Add
  58.     objRecipient.Name = Recipient
  59.     objRecipient.Resolve
  60.    
  61.     objMessage.Fields.Add &H59020003, 1
  62.     objMessage.Update
  63.    
  64.     objMessage.Send showdialog:=False
  65.     objSession.Logoff
  66. End Sub


 
Sheet1 (qui contient un bouton "Button1" )
 
 

Code :
  1. Const Recipient = "MagicBuzz" ' Adresse email ou non du contact Exchange
  3. Private Sub CommandButton1_Click()
  4.     Dim tabFiles(1) As String
  6.     ActiveWorkbook.Save
  7.     tabFiles(0) = ActiveWorkbook.FullName
  9.     Module1.sendMail Recipient, "Here is the updated document." & vbCrLf & vbCrLf & "Regards" & vbCrLf & "Sent: " & Now(), tabFiles
  10. End Sub


 
Cet exemple s'envoie tout seul (fichier Excel) à la personne indiquée dans le destinataire "Const Recipient".
 
A toi de le modifier pour faire ce que tu veux faire exactement.
 
PS: Et je rappelle, si t'as pas de serveur Exchange, CA NE MARCHERA PAS !
 
PS²: Mon exemple est complet. Si Outlook est ouvert avec une connection au serveur, alors il va envoyer le mail tout seul. Si ce n'est pas le cas, Windows va t'afficher une fenêtre de login te demandant de t'authentifier auprès d'Exchange (logiquement, t'as juste à mettre ton log/pass NT), puis il va envoyer le/les mails automatiquement.

n°677884
F22Raptor
Tête en l'air ...
Posté le 19-03-2004 à 11:10:36  profilanswer
 

merci ! :)


---------------
Is it a bird? Is it a plane? No it s F22Raptor !  -  I love flying because football, baseball, rugby, and golf only take one ball

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoi d'un mail avec VBA sous Excel

 

Sujets relatifs
[VBA] Tester si une table existe ...Réception de mail HTML
[Access - VBA] - Question à la con avec la '[VBA - Access] - Demande d'un petit avis
Excel Duplication d'une ligne avec ses contrôles[VBA - Access] - Comment remplir en VBA une zone de liste ?
envoi d'un e-mailListe de process word et excel via api
Lien hypertexte sur une feuille d'une classeur Excel 
Plus de sujets relatifs à : Envoi d'un mail avec VBA sous Excel

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.066 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)