Bonjour,
Je viens de m'inscrire pour trouver un conseil sur la réalisation d'un petite macro, associée à un bouton, dans une présentation Powerpoint.
Générer un mail avec l'adresse du destinataire fait partie des fonctions de base de Powerpoint mais je souhaiterais également ajouter un texte prédéfini (sans aucune variable) au corps de ce mail.
Je suppose qu'il s'agit d'une macro d'une grande simplicité mais je n'ai pas encore trouvé les codes pour la rédiger. Il va de soi que je ne suis pas programmeur !    
Voyez-vous comment je pourrais écrire cette macro ?
 
Merci d'avance
 
Jean-Michel

Salut, via CDO c'est pour Excel mais adaptable http://www.rondebruin.nl/cdo.htm  
sinon ceci via OutLook http://www.pptalchemy.co.uk/PowerPoint_Email.html
Une recherche t'en donnera une myriade.

OK, premiers pas en VBA donc...
Dans ces lignes :
Sub sendmail()
 Dim ret As Boolean
 Dim strAddress As String
 Dim strMessage As String
 strAddress = "whatever@whatever.com"
 strMessage = ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange ' change to suit
 ret = SendEMail(strAddress, "From PowerPoint", strMessage)
 MsgBox "Mail sent= " & ret
 End Sub
 
 
..."Dim strMessage As String" déclare une variable "strMessage" ?
Et quand je lis plus bas :
strMessage = ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange ' change to suit
...
cela signifie que le mail enverra les slides du fichiers ?
Et qu'il me suffit de modifier "ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange " par le texte que je veux insérer ?

Salut, je précise que je n'ai pas installé PowerPoint sur mon PC, ne m'en servant jamais, donc à toi d'essayer, mais effectivement cela semble être le cas pour envoyer le texte contenu dans une diapo.

Grand merci pour ton aide !
Je testerai ça ce soir.