Création de mail depuis Excel

Création de mail depuis Excel - Logiciels - Windows & Software

Marsh Posté le 30-11-2005 à 16:46:22    

Salut,
 
 
Je voudrais savoir si il est possible dans Excel (2003) de créer un bouton qui créer un mail avec en attache le fichier dans lequel on a cliqué pour créer l'email ?
 
Merci de votre aide.

Message cité 1 fois

---------------
Stats. Tout le monde savait que c'était impossible. Il est venu un imbécile qui ne le savait pas et qui l'a fait.
Reply

Marsh Posté le 30-11-2005 à 16:46:22   

Reply

Marsh Posté le 30-11-2005 à 16:50:16    

ophiocus a écrit :

Salut,
 
 
Je voudrais savoir si il est possible dans Excel (2003) de créer un bouton qui créer un mail avec en attache le fichier dans lequel on a cliqué pour créer l'email ?
 
Merci de votre aide.


 
 
oui, je le fait avec Outlook en //
 
en gros, vla mon code (crade) :

Code :
  1. Private Function SendTheMail(body As String, Dest, NbDest, Title, attachFile1)
  2. On Error GoTo ErrHandler
  3.    
  4.     Dim OLApp As Object
  5.     Dim OLEml As Object
  6.     UserForm1.Label1 = "Information will be send to :"
  7.     UserForm1.Label4 = ""
  8.     UserForm1.BodyPreview = body
  9.     For cnt = 0 To NbDest - 1
  10.         UserForm1.Label4 = UserForm1.Label4 & Dest(cnt) & Chr(13) & Chr(10)
  11.     Next
  12.     UserForm1.Show
  13.     Set OLApp = CreateObject("Outlook.Application" )
  14.     Set OLSes = OLApp.GetNamespace("MAPI" )
  15.     Set OLEml = OLApp.CreateItem(olMailItem)
  16.     OLSes.Logon
  17.     With OLEml
  18.         If UserForm1.ButtonS = True And UserForm1.mail <> "" Then .Recipients.Add UserForm1.mail
  19.         For cnt = 0 To NbDest - 1
  20.             .Recipients.Add Dest(cnt)
  21.         Next
  22.         .ReplyRecipients.Add "windac@boschrexroth.de"
  23.         .Subject = "Users creation for : " & Title
  24.         .HTMLBody = body
  25.         If attachFile1 <> "" Then .Attachments.Add attachFile1
  26.     End With
  27.     OLEml.send
  28.     OLSes.Logoff
  29.     Exit Function
  30. ErrHandler:
  31.     MsgBox "Canceled due to error" & OLApp
  32. End Function


Message édité par Z_cool le 30-11-2005 à 16:52:06

---------------
#mais-chut
Reply

Marsh Posté le 30-11-2005 à 17:03:40    

Fichier --> Envoyer vers --> Email avec attachement
 
...

Reply

Marsh Posté le 30-11-2005 à 17:15:26    

Merci je vais regarder tout ça.


---------------
Stats. Tout le monde savait que c'était impossible. Il est venu un imbécile qui ne le savait pas et qui l'a fait.
Reply

Sujets relatifs:

Leave a Replay

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