Insérer texte dans macro mail automatique

[Luclup]

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à :

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

 

[MichelXld]

bonjour

j'espere que cette adaptation pourra t'aider

Sub Email_V02()
Dim Reponse As String
Dim PS As String

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)

Reponse = MsgBox('Voulez vous ajouter un Post-Criptum ?', vbYesNo)
If Reponse = vbYes Then PS = Application.InputBox('POST-SCRIPTUM')
w = w & 'Ps' & Chr(13) & PS

Mail.Body = w
Mail.Attachments.Add ('Chemin du fichier à attacher C:\\\\\\\\etc...')
Mail.Send
End Sub


bonne journée
MichelXld

 

[Luclup]

Super Michel, en fait je voyais ça plus compliqué et je me suis moi même compliqué la vie !
Alors qu'en réfléchissant un peu mieux...

Encore merci, grand maître !

Le petit scarabée Luclup