Caption + mail

[serval]

Bonjour le forum

Une toute petiote question pour vous

Est-il possible, en cliquant sur un caption, d'ourvrir la messagerie pour envoyer un mail? (un peu comme qd on clique sur le lien qui pointe l'admin d'un site par exemple)

Merci de votre aide,
FAb

 

[sigma]

serval, le forum,

à priori tout est possible mais que veux tu faire exactement.
Envoyer un mail à un destinataire fixe ? à des copies différentes ? désires tu joindre ton fichier en PJ ? ou veux tu simplement un simple raccourci pour ta messagerie ?

à ton service.

A+

 

[serval]

alut :=)

je cherche le moyen d'ouvrir un nouveau mail avec mon adresse en tant que destinataire.
l'utilisateur n'aura plus qu'a remplire les corps du mail.

Je ne sais pas si c bien clair

 

[sigma]

re,

c'est très clair, voici un bout de code à coller, il envoie le fichier en pièce jointe tu peux même créer un meesage fixe (ex, indicateur qualité ) afin que l'emetteur n'ai rien d'autre à faire qu'a cliquer sur ton bouton.

vPath = ActiveWorkbook.Path
vFile = ActiveWorkbook.Name

' l'objet du mail (ex la valeur d'une cellule)
vSubject = Range('a2')

vTo = 'ton adresse mail'
vMessage = 'si tu veux ajouter un texte à ton mail'

' met ton fichier en pièce jointe
vFileToAttach = vPath & '\\' & vFile

'Ouvre un nouveau message vide via Outlook
Set myol = New Outlook.Application
Set myitem = myol.CreateItem(olMailItem)
myitem.To = vTo
myitem.CC = 'l'adresse mail de ta copie'

myitem.Subject = vSubject
myitem.Body = vMessage

Set myAttachments = myitem.Attachments
If vFileToAttach <> '' Then
myAttachments.Add vFileToAttach, olByValue, , vFileDesc
End If

'envoie le mail
myitem.Send ':-if you just want your application to send email automatically.

End Sub

à ton service si besoin d'adaptation.

A+

 

[serval]

alut,

c exactement ca que je voulais faire :=)

merci BCD :woohoo:

FAb

 

[sigma]

salut,

ravi de t'avoir rendu service, à charge de revanche

A+ et bon week end