Envoi d'un mail avec VBA sous Excel

Envoi d'un mail avec VBA sous Excel - VB/VBA/VBS - Programmation

Marsh Posté le 03-09-2003 à 21:53:16    

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
Reply

Marsh Posté le 03-09-2003 à 21:53:16   

Reply

Marsh Posté le 04-09-2003 à 14:30:37    

: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
Reply

Marsh Posté le 04-09-2003 à 14:36:31    

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:
Reply

Marsh Posté le 04-09-2003 à 14:50:36    

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
Reply

Marsh Posté le 04-09-2003 à 14:52:35    

Reply

Marsh Posté le 04-09-2003 à 19:21:51    

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
Reply

Marsh Posté le 04-09-2003 à 21:55:11    

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:
Reply

Marsh Posté le 05-09-2003 à 18:04:27    

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
Reply

Marsh Posté le 19-03-2004 à 07:20:16    

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...

Reply

Marsh Posté le 19-03-2004 à 09:46:31    

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...)

Reply

Marsh Posté le 19-03-2004 à 09:46:31   

Reply

Marsh Posté le 19-03-2004 à 09:48:41    

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
Reply

Marsh Posté le 19-03-2004 à 09:56:06    

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.

Reply

Marsh Posté le 19-03-2004 à 11:10:36    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed