Création de mail depuis Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Création de mail depuis Excel

ophiocus

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.

Publicité

Z_cool

HFR profile rating:⭐⭐⭐⭐

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 :

Private Function SendTheMail(body As String, Dest, NbDest, Title, attachFile1)
On Error GoTo ErrHandler
Dim OLApp As Object
Dim OLEml As Object
UserForm1.Label1 = "Information will be send to :"
UserForm1.Label4 = ""
UserForm1.BodyPreview = body
For cnt = 0 To NbDest - 1
UserForm1.Label4 = UserForm1.Label4 & Dest(cnt) & Chr(13) & Chr(10)
Next
UserForm1.Show
Set OLApp = CreateObject("Outlook.Application" )
Set OLSes = OLApp.GetNamespace("MAPI" )
Set OLEml = OLApp.CreateItem(olMailItem)
OLSes.Logon
With OLEml
If UserForm1.ButtonS = True And UserForm1.mail <> "" Then .Recipients.Add UserForm1.mail
For cnt = 0 To NbDest - 1
.Recipients.Add Dest(cnt)
Next
.ReplyRecipients.Add "windac@boschrexroth.de"
.Subject = "Users creation for : " & Title
.HTMLBody = body
If attachFile1 <> "" Then .Attachments.Add attachFile1
End With
OLEml.send
OLSes.Logoff
Exit Function
ErrHandler:
MsgBox "Canceled due to error" & OLApp
End Function

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

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

k1200

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

...

ophiocus

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.

FORUM HardWare.fr

Windows & Software

Logiciels

Création de mail depuis Excel

Sujets relatifs
Envoyer un mail Outlook éteint ?	mail louche ! inquiet ! Qu'en pensez vous ?
thunderbird et mail orange	Probleme d'envoi de mail
création d'un site web	Impossible d'envoyer un mail autre que celui du FAI
[Excel] Compter un nombre de 0 contigues (la suite de "0" la plus long	yahoo mail, messages envoyés et logiciel de mail
STH -> ST510v3 création d'un user.ini : besoin d'aide !
Plus de sujets relatifs à : Création de mail depuis Excel

Page générée en 0.042 secondes