Discussion :

[LuckyBr]

Bonjour

j'ai réussi grâce à différents tutos à créer la macro suivante :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub envoimail()
    Dim listedest()
    Dim i As Long
    Dim omsgapp As Object
    Dim omsg As Object
    Dim slistedest As String
    Dim sFichier As String
 
    sFichier = Application.GetOpenFilename(, , "Sélectionner le ficher")
    If sFichier = "" Then
        MsgBox "Aucun fichier sélectionné, opération annulée"
        Exit Sub
    End If
 
    Set omsgapp = CreateObject("Outlook.Application")
 
    listedest() = Range("test[Mail]")
 
 
    slistedest = ""
    For i = LBound(listedest(), 1) To UBound(listedest(), 1)
        slistedest = slistedest & ";" & listedest(i, 1)
    Next
 
    Set omsg = omsgapp.createitem(0)
 
    With omsg
        .bcc = slistedest
        .Attachments.Add sFichier
        .Subject = "Bienvenu à ..."
        .Body = "Test"
        .Send
    End With
 
    omsgapp.Quit
    Set omsgapp = Nothing
 
End Sub

Ce que je souhaiterais modifier c'est de pouvoir Modifier l'objet et le corps du mail comme je le souhaite à chaque envoi de mail.
Comment puis-je faire ?

Merci d'avance

[mattgui]

Salut à toi !

Peux tu être un peu plus clair sur les modifications que tu souhaites effectuer pour ton objet / corps du texte ? S'agit-il d'une modification directement à faire dans une cellule ? Dans un userform ? Dans outlook ?

Ce que je ne comprends pas c'est que tu as bien trouvé ces lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
With omsg
.bcc = slistedest
.Attachments.Add sFichier
.Subject = "Bienvenu à ..."
.Body = "Test"
.Send
End With

En modifiant .subject, tu modifieras l'objet et en modifiant .body, le corps du texte ...

A éclaircir

[Menhir]

En modifiant .subject, tu modifieras l'objet et en modifiant .body, le corps du texte ...

Et en mettant deux InputBox en début de macro (ou en l'intégrant au code d'un UserForm), tu pourras le faire en live.
https://msdn.microsoft.com/fr-fr/VBA...utbox-function
http://silkyroad.developpez.com/VBA/UserForm/

[LuckyBr]

Oui mais là le texte est déjà automatiquement intégré à la macro...
moi je veux pouvoir taper le texte que je veux à chaque envoi de mail sans avoir besoin de modifier la macro

mattgui;10212360]Salut à toi !

Peux tu être un peu plus clair sur les modifications que tu souhaites effectuer pour ton objet / corps du texte ? S'agit-il d'une modification directement à faire dans une cellule ? Dans un userform ? Dans outlook ?

Ce que je ne comprends pas c'est que tu as bien trouvé ces lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
With omsg
.bcc = slistedest
.Attachments.Add sFichier
.Subject = "Bienvenu à ..."
.Body = "Test"
.Send
End With

En modifiant .subject, tu modifieras l'objet et en modifiant .body, le corps du texte ...

A éclaircir [/QUOTE]

[LuckyBr]

J'ai réussi avec une InputBox.. mais par contre on est limité en caractère. y-at-il moyen de contourner cette limite ?

[patricktoulon]

oui au lieu de send tu affiche l'application outlook pour entrer les destinataire et cc,etc....

[LuckyBr]

tu peux lui faire ouvrir le message Outlook avec déjà la liste de destinataire rempli ? et juste rentrer le corps de Texte et objet ?
tu fais ca comment ? je n'arrive pas à trouver un code

[LuckyBr]

c'est bon j'ai trouvé...

MERCiiii