Discussion :

[nounous54]

Bonjour à tous,

Je cherche la solution à mon problème.

J'ai fait un petit code qui m'envoi un mail avec un pièce jointe.
Tous cela fonctionne bien à une exception.

Pour que le mail parte, je dois avoir outlook ouvert !!

existe il une solution pour faire partir le mail même si outlook est fermé?
ou alors de forcer l'ouverture d'outlook et ensuite le refermer !!

voici le 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
22
23
24
25
26
27
28
29
30
31
32
33
 
'   ENVOI DU MAIL AVEC LA PIECE JOINTE
'
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
Dim strEmail As String
Dim strObj As String
Dim strPieceJointe As Variant
Dim strMsg As String
 
 
'---
'paramètre du message
strPermanent = nom_login
    strPieceJointe = strNomFichier         ' c'est le nom du fichier PDF que je vient de créer plus haut
        strEmail = "el.nounes@gmail.com"        'ADRESSE MAIL DU SECRETAIRE
            strObj = "Nouvelle inscription"
                strMsg = "Salut,"
                strMsg = strMsg & vbCrLf & "Nous avons fait une nouvelle inscription"
                strMsg = strMsg & vbCrLf & "tu trouveras l'inscription au format PDF en pièce jointe."
                strMsg = strMsg & vbCrLf & vbCrLf & " "
                strMsg = strMsg & vbCrLf & vbCrLf & "Bonne journée"
                strMsg = strMsg & vbCrLf & vbCrLf & "               " & strPermanent       'strPermanent est le nom de la personne de permanence
'---
With Ol_Item
.To = strEmail
.subject = strObj
.Body = strMsg
.Attachments.Add strPieceJointe
.Save
.send
End With

Merci pour votre aide.

Bonne soirée

[jerome.vaussenat]

Salut,

au début de ta macro, tu peux ajouter :

Code :

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

1
2
3
' Créer une instance d'Outlook
On Error GoTo OLMailErr
Set ol = New Outlook.Application

En espérant que cela aille dans le sens que tu souhaites

[User]

Bonjour,

Il y a aussi l'option de le faire avec CDO.

Cdlt,