Mail automatique en cliquant sur un bouton.

Bonjour Jullien,

Voici la solution que je te propose :

Sub EnvoiMail()

Dim HyperLien As String
Dim i As Integer
Dim feuille As Worksheet
Dim Ind As Integer

Application.ScreenUpdating = False

Set feuille = ActiveWorkbook.Worksheets('Feuil1')

'Définition du message
'mailto : adresse mail du destinataire
'Subject : sujet du message
'Body : corps du message

HyperLien = 'mailto:toto@adresse.fr' & '?' & 'Subject=test '
HyperLien = HyperLien & '&Body=Votre fichier' & ActiveWorkbook.Name & 'est désormais disponible, consultez-le avant le ' & Date & ', au-delà de cette date, il ne sera plus disponible'

'Ouverture de outlook et entrée des données prédéfinies ci-dessus
ActiveWorkbook.FollowHyperlink HyperLien

'Macro d'attente avant d'envoyer
Attendre 1


'Définition des touches à appuyer pour envoyer correctement le mail
SendKeys = '%v', True

End Sub

Sub Attendre(Secondes As Integer)
Dim Début As Long, Fin As Long, Chrono As Long
Début = Timer
Fin = Début + Secondes
Do Until Timer >= Fin
DoEvents
Loop
End Sub

En espérant que ça te convienne,

CAP

Merci je vais tenter d'utiliser ton code, en esperant que cela fonctionne.

a plus tard

Excuse moi d'abuser encore de ton temps !

Ton code fonctionne trés bien excepter la ligne
'Définition des touches à appuyer pour envoyer correctement le mail
SendKeys = '%v' = True

elle reste rouge, je l'est donc désactiver.

je voudrais savoir en plus s'il été possible de mettre en forme le texte que j'envoi. Pour le mettre en Gras et/ou italique, faire des entrée par exemple.


Merci encore pour ton code !

Oui c'est normal c'est

SendKeys = '%v', True

et non pas

SendKeys = '%v' = True

J'avoue ne pas savoir comment mettre en gras ou italique. En revanche, pour aller à la ligne, tu peux utiliser la commande Space(nombre d'espaces).

Par exemple :

HyperLien = HyperLien & \\'&Body=Votre fichier' & Space(250) & ' prêt'

Désolé de ne pas pouvoir aider plus,

Bon week-end !

CAP

PS : Je vais poster un exemple prochainement pour envoyer un mail avec un copier/coller d'un tableau excel par exemple ... Au cas où ça intéresse quelqu'un !

mince c moi qui avais mis le = a la place de la , car justement, cela ne fonctionne pas avec la virgule...

Ca me dit que ca attend la fin d'instruction.

OUPS ! oui pardon !
je ne sais pas pourquoi j'ai écrit ça,
la syntaxe correcte est

SendKeys '%v', True

Pas de = du tout.

Désolé pour cette étourderie !

Bonne soirée,

CAP

Merci beaucoup pour ton code ! ca ma bien rendu service ! B)