Discussion :

[luko6]

bonjour à tous,
suite à de nombreuses recherches, je suis arrivé à ce code qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
 
 
 
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
       .To = "tonton@tata"
       .Subject = "blablabla"
       .Body = ""
        .Display
End With
Set objOutlookMsg = Nothing

cependant je souhaite aussi mettre incorporer en piece jointe mon fichier excel en cours (activeworkbook) mais je ne trouve pas la bonne syntaxe, pouvez vous m'aider sur ce point?

aussi, si un utilisateur ne possede pas outlook sur son poste, ce code fonctionnera t-il?
merci de votre aide
cordialement

[mayekeul]

bonjour,

cependant je souhaite aussi mettre incorporer en piece jointe mon fichier excel en cours (activeworkbook) mais je ne trouve pas la bonne syntaxe, pouvez vous m'aider sur ce point?

Code :

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

1
2
3
4
5
6
7
8
9
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
        .Attachments.Add activeworkbook.FullName
       .To = "tonton@tata"
       .Subject = "blablabla"
       .Body = ""
        .Display
End With
Set objOutlookMsg = Nothing

aussi, si un utilisateur ne possede pas outlook sur son poste, ce code fonctionnera t-il?

je ne pense pas non!

[neiluj26]

Bonjour,

Je me suis inspiré de ce que j'ai pu trouver ici et là, pour écrire ce code. Il sauvegarde la feuille dans un nouveau fichier (avec un nom du type "Nom - Date"), l'envoie, puis efface le fichier.

Il doit normalement fonctionner avec n'importe quelle messagerie installée.

J'espère qu'il te sera utile.

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
On Error GoTo GestionErreur
Dim Sourcewb As Workbook, Destwb As Workbook, Temp As String, strErreurEnvoiMail As String
Set Sourcewb = ActiveWorkbook
ActiveSheet.Copy
Set Destwb = ActiveWorkbook
 
Temp = ThisWorkbook.Path & Application.PathSeparator & "Nom " & Format(Date, "ddmmyyyy") & ".xls"
strErreurEnvoiMail = "Impossible d'envoyer la feuille automatiquement."
 
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With
 
Destwb.SaveAs Filename:=Temp, FileFormat:=xlExcel8
'------ Envoi du mail avec la méthode sendmail.
strSujetMail = "Bla Bla Bla"
strDestinataires(0) = "toto@domaine.com": strDestinataires(1) = "titi@domaine.com"
Destwb.SendMail strDestinataires, strSujetMail, False
 
With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
End With
Destwb.Close savechanges:=False
Kill Temp
 
Exit Sub
GestionErreur: MsgBox strErreurEnvoiMail
End Sub

[fring]

aussi, si un utilisateur ne possede pas outlook sur son poste, ce code fonctionnera t-il?

Bonjour,

Il y a moyen d'envoyer un mail sans passer par Outlook, voir FAQ ci-dessous sur l'utilisation des messageries en VBA

http://excel.developpez.com/faq/?pag...ailCDOexchange

[luko6]

merci pour vos réponses
voici le code que l'on trouve dans la FAQ pour envoyer un mail peu importe le logiciel utilisé

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
Sub Envoi_CDO1()
Dim CdoMessage As CDO.Message
Dim Fichier As Variant
 
    ChDir "C:\Documents and Settings\UserName\Mes documents\PdfOut"
    Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf")
 
    If Fichier = False Then Exit Sub
 
    Set CdoMessage = New CDO.Message
    With CdoMessage
        .Subject = "Exemple"
        .From = "xxxxx@wanadoo.fr"
        .To = "yyyyy@orange.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment Fichier
        .Send
    End With
 
    Set CdoMessage = Nothing
End Sub

comment puis je l'adpater en mettant en PJ le classeur en cours?
je ne souhaite pas l'envoyer automatiquement, je souhaite que l'utilisateur clique sur son bouton envoyer (fonction "display" dans mon premier code)
merci

[luko6]

bonjour à tous,
je bloque toujours pour insérer ma PJ
voici mon code actuel

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
Dim CdoMessage As CDO.Message
Dim Fichier As Variant
 
Fichier = ActiveWorkbook.FullName
    Set CdoMessage = New CDO.Message
    With CdoMessage
        .Subject = "Quizz"
         .To = "aaaa@****"
        .CC = ""
        .BCC = ""
        .AddAttachment Fichier
        .Send
    End With
 
    Set CdoMessage = Nothing

j'ai une erreur d'execution me disant que mon fichier est utilisé par un autre processus, pouvez vous m'aider?
merci

[AlainTech]

Bonjour,

Pour ma part, je ne mets (quasi) jamais de programme dans le classeur données.
J'applique le principe frontale/dorsale d'Access.
Autrement dit, j'ai un classeur "application" et un ou des classeurs "données".
Si je dois écrire ou lire dans le classeur données, je le fais via un ou des UserForms.
Travailler des cette façon aurait pour avantage que ton fichier données serait indépendant de ton application et que tu pourrais l'envoyer sans problème.

Si cette scission n'est pas possible dans ton cas, tu pourrais essayer de faire une copie de ton classeur et d'envoyer cette copie avant de la supprimer.

Bonne chance.