L
Luclup
Guest
Re-bonjour,
Un petit génie dans les coins ?
J'ai réussi à trouver une macro pour l'envoi automatique de mail lorsque je clique sur un commandbutton. La voilà :
Je voudrais en fait compléter cette macro pour qu'elle me demande si je veux ajouter un POST SCRIPTUM à mon mail. Si je réponds oui, qu'elle m'affiche une fenêtre nommée POST SCRIPTUM dans laquelle j'inscrit ce que j'ai à ajouter et que le texte que je viens de rentrer s'insère à la fin du mail avec 'PS :' avant.
Si vous avez des autres idées je suis preneur, l'important c'est le résultat!
Voilà, si ce n'est pas trop en demander. En tout cas moi je suis pas assez doué pour ça mais c'est pas faute d'avoir essayé...
Merci
Un petit génie dans les coins ?
J'ai réussi à trouver une macro pour l'envoi automatique de mail lorsque je clique sur un commandbutton. La voilà :
Code:
Sub Email()
Set app = CreateObject('outlook.application')
Set Mail = app.CreateItem(0)
Mail.To = 'adressedestinataire@trucbidule.fr'
Mail.Subject = 'Sujet du mail'
w = 'Salut, ' + Chr(13) + Chr(13) + 'Voici les dernières modifications concernant le classeur.' + Chr(13) + Chr(13) + 'A+, Luclup' + Chr(13)
w = w + '' + Chr(13) + Chr(13)
Mail.Body = w
Mail.Attachments.Add ('Chemin du fichier à attacher C:/etc...')
Mail.Send
End Sub
Je voudrais en fait compléter cette macro pour qu'elle me demande si je veux ajouter un POST SCRIPTUM à mon mail. Si je réponds oui, qu'elle m'affiche une fenêtre nommée POST SCRIPTUM dans laquelle j'inscrit ce que j'ai à ajouter et que le texte que je viens de rentrer s'insère à la fin du mail avec 'PS :' avant.
Si vous avez des autres idées je suis preneur, l'important c'est le résultat!
Voilà, si ce n'est pas trop en demander. En tout cas moi je suis pas assez doué pour ça mais c'est pas faute d'avoir essayé...
Merci