envoi mail depuis excel

Version imprimable

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

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

bonjour,

Citation:

Envoyé par luko6

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:

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

Envoyé par luko6

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

je ne pense pas non!

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:

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

18/08/2010, 14h19
fring

Citation:

Envoyé par luko6

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

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:

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

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

Code:

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

23/08/2010, 21h59
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.