Discussion :

[louzz]

Bonjour,


Je suis actuellement à la recherche d'un code pour envoyer un mail via une macro VBA.

J'utilise ce code.

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
Private Sub cmd_mail_Click()
    'Déclaration des variables
    Dim Msg, Style, Title, Response, Dest As String
 
    'Initialisation des variables
    Msg = "Votre demande a bien été envoyé !"                 ' Définit le message
    Style = vbOKOnly + vbInformation                         ' Définit les boutons
    Title = "Félicitation "                                ' Définit le titre
    Dest = "toto@test.fr"     ' Définit les destinataires de la notification par mail
 
 
    'Lignes de commande de la fontion
    'La 1er solution est pour moi la meilleur, car l'envoi du mail est transparent
    '/*********1ere solution**************/
    ActiveWorkbook.SendMail Recipients:=Dest, Subject:="kikou"
 
    '/**********2eme solution*********************/
    Application.Dialogs(xlDialogSendMail).Show (Dest)
 
    Response = MsgBox(Msg, Style, Title)
End Sub

Ceci marche très bien cependant je ne désire pas avoir mon document actif dans mon message.

Ceci est-il possible? Car en effet mon fichier fait 6Mo.... je veux pas envoyer de fichier volumineux.
Peut-on mettre à la limite un fichier de 0ko crée sans rien dedans spécialement pour ça?


Merci d'avance.
Cordialement

[louzz]

Bonjour,

J'ai pu voir qu'on pouvait avoir un code du genre pour mettre un autre fichier à la place du fichier excel en cours d'exécution.
Cependant ca marche pas.
Est ce que j'ai une mauvaise syntaxe ou autre?

Code :

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

ActiveWorkbook("c:\Test.txt").SendMail Recipients:=Dest, Subject:="kikou"

Cependant ca ne me fait rien du tout...


merci d'avance de votre aide.
Cordialement

[AlainTech]

Bonjour,

Fais une recherche sur ce forum avec le mot clé CDO.
Tu devrais trouver ton bonheur.

[patricktoulon]

bonjour


regarde ici

au plaisir

[AlainTech]

Bonjour,

Il me semble que le besoin de louzz est d'envoyer un mail sans pièce jointe.

[patricktoulon]

Bonjour AlainTch

oui j'avais compris

il met

Code :

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

.AddAttachment ""

a la place de

Code :

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

.AddAttachment form_mail.PIECE_JOINTE

ou il le bloque par un apostrophe

Code :

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

'.AddAttachment form_mail.PIECE_JOINTE

le but etant de lui donner une piste pour utiliser le "CDO"

pas lui macher le travail


au plaisir