Discussion :

[Banshor]

Bonjour,

j'ai crée une macro pour envoyer un mail à une personne par Outlook 2003 avec en pièce joint mon fichier Excel

Problème : Le mail se place dans l'Outbox d'Outlook et reste bloqué. Je ne peux pas non plus tenter de l'envoyer manuellement MAIS si je tente de le transférer manuellement à la même personne, le mail s'envoie.. Mais j'ai toujours le mail du début bloqué dans l'Outbox.

Code :

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

1
2
3
4
5
6
7
Sub EnvoiMail()
    Fichier2 = Range("M2").Value
  'Envoi d'un mail au gourou
    Workbooks("Fichier2").SendMail Recipients:="tatayoyo@tatayoyo.com", _
    Subject:="ErreurDeMachine", _
    ReturnReceipt:=False
End Sub

J'aurais besoin d'aide
Merci

[Invité]

il y à une autre question sur le sujet.
http://www.developpez.net/forums/d14...t/#post7813616

[Banshor]

Merci mais je ne vois pas comment la modifier correctement. Comme par exemple le

Code :

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

Private Function Mail(Destinataire As String, Titre As String, Texte As String, Optional Document As String) As Boolean

Fait que je ne peux pas assigner la macro à un bouton. et je ne suis absolument pas une bête en codage VBA ^^'

[Invité]

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
Sub test()
MsgBox Mail("toi@free.fr", "lui.free.fr", "lesautre.free.fr", "le sujet est", "bla bla bla...", "c:\doc1.xls;c:\doc2.xls")
End Sub
 
Function Mail(Destinataire As String, Optional DestinataireCopy As String, Optional DestinataireCopyCaché As String, Optional Subject As String, Optional Body As String, Optional Document As String) As Boolean
 
    On Error GoTo Erreur
    Dim ObjApp As Object
    Set ObjApp = CreateObject("Outlook.Application")
    Dim ObjMail As Object
    Set ObjMail = ObjApp.CreateItem(olMailItem)
    Set ObjAttachement = ObjMail.Attachments
 
    ObjMail.To = Destinataire
    ObjMail.CC = DestinataireCopy
    ObjMail.BCC = DestinataireCopyCaché
    ObjMail.Subject = Subject
    ObjMail.Body = Body
    If Document <> "" Then
    d = Split(Document & ";", ";")
    For i = 0 To UBound(t) - 1
        If Trim("" & d(i)) <> "" Then ObjAttachement.Add Trim("" & d(i))
    Next
 
 
   ' ObjMail.Display
    Mail = True
    ObjMail.Send                                                        ' envoi du message
 
    Exit Function
 
Erreur:
    Mail = False
    MsgBox Error
End Function