Bonjour,
J'ai un ptit pb ou plutot deux en fait, on va déjà faire par étape.
j'ai un bouton qui envoie un mail. Cependant , j'aimerai pouvoir modifier le contenue du mail, avant la commande send.
voici le code :
il doit falloir mettre autre chose à la place de send mais quoi ??? tel est ma question
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 OBJET_SEND = PlainText(OBJET.Value) 'OBJET_SEND = OBJET.Value Dim gen_Email As Outlook.MailItem Dim ex_OutLook As Outlook.Application ' créer un nouvel item mail Set ex_OutLook = New Outlook.Application Set gen_Email = appOutLook.CreateItem(olMailItem) ' les paramètres gen_Email .To = INTERV_CONCERNE.Value gen_Email .Subject = TITRE.Value gen_Email .Body = OBJET_SEND ' envoie le message gen_Email .Send ' détruit les références aux objets Set gen_Email = Nothing Set ex_OutLook = Nothing
Ma seconde question touche le texte enrichie présent dans le mémo. Si je fais un copier collé en manuel sa fonctionne, cependant en auto sa marche pas d'ou le plaintext, pour éviter les différentes balises.
si quelqu'un a une ptite idée.
Merci
Stéph
Partager