Discussion :

[GeoFrey]

bonjour à tous

Voilà je bosse sur une BDD depuis un petit moment et pour la terminée il ne me reste plus qu'a envoyer des mails tous les jour à xx h yy.
Pour se faire j'ai donc un formulaire avec minuteur et une table prenant en compte le dernier envoi de mail etc. Bref l'automatisation est fonctionnelle.

Le problème est que je dois envoyer en PJ un état en pdf. J'ai retourner internet pour trouver une solution, et des codes de 100000 lignes pour si peu... Pas mon choix. J'ai donc créer une macro externe qui extrait l'etat en pdf. (ça fonctionne)
J'ai donc mon formulaire automatique d'envoi. Mais je ne sais pas comment "appeler" la macro pour qu'elle exporte, et qu'ensuite en PJ je la mette ( ça je sais faire).

Le plus gros soucis est l'envoi de mail. J'ai vu qu'il y a différentes façon d'envoyer des mails, envoyer des mail, j'y arrive, avec pièce jointe aussi, mais passer la sécurité Outlook... impossible je me trompe ?
Malheureusement je n'ai pas le choix !
J'ai essayé CDO aussi, mais je suis dans une grosse entreprise et je ne sais que mettre dans les paramètres SMTP etc...
Si quelqu'un à une solution pour passer outre ou bloquer la sécurité outlook, et pour appeler la macro...
J'ai retourner les forums sans piste m'aidant..

Bonne journée !

[User]

Bonjour,

As-tu regardé cette discussion :
envoie-mail-outlook

Dans la fonction :

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
36
37
38
39
40
41
42
 
Private Sub EnvoyerEmail(doc As String, Email As String, sujet As String, Message As String)
Dim Reponse As Integer
Dim objOutlook As Object
Dim MonMessage As Object
 
On Error GoTo Erreur
'Vérifier que l'adresse existe
 
DoCmd.OutputTo acOutputReport, doc, "PDF", CurrentProject.Path & "\relevé_carte.pdf"
 
  'Assigner l'objet Outlook
Set objOutlook = CreateObject("Outlook.Application")
'Composer le message
Set MonMessage = objOutlook.createitem(0) 'ouvrir une structure de message1
MonMessage.To = Email
MonMessage.Subject = sujet
'Corps du message
 
MonMessage.Body = Message
 
'-------------------
MonMessage.Attachments.Add CurrentProject.Path & "\relevé_carte.pdf"
MonMessage.send
'Fermer Outlook
 
'Libérer la mémoire
Set objOutlook = Nothing
Set MonMessage = Nothing
 
Exit Sub
Erreur:
 
Select Case Err.Number
   Case -2147467259  ' adresse invalide
         MsgBox "Adresse e-mail invalide"
 
   Case 2501
         MsgBox Err.Number & " " & Err.Description
End Select
 
End Sub

La commande :

Code :

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

DoCmd.OutputTo acOutputReport, doc, "PDF", CurrentProject.Path & "\relevé_carte.pdf"

Permet d'enregistrer ton état sur le disque au format pdf avant de l'attacher pour l'envoyer.

Ensuite la fonction est exécutée dans une boucle qui parcourt les enregistrements contenus dans un recordset.

à+

[GeoFrey]

MODIF : Je n'avais pas vu le code auparavant désolé ! j'essaie pour le PDF, mais "path" c'est le nom de l'état?

Bonjour User,

Je ne l'avais pas vu pourtant j'en ai sincèrement rongé pas loin d'une centaine !!
J'ai tout lu mais je n'arrive pas a avoir la pièce jointe que tu lui as renvoyé.
Mais je ne comprend pas trop, lui ici aura aussi le message d'alerte simplement il utilise clickeyes. Or je ne peux utiliser clickeyes sur tous les PC...
Donc même si je ne le fais pas en automatique a cause du message d'alerte ( vu avec mon tuteur) je suis partis sur un bouton qui contient ce code et valideront la sécurité, sauf si on arrive à la faire sauter..)

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
 
Private Sub send_mail_Click()
 
On Error GoTo Err_send_EnvoiMail_Click
Dim db As DAO.Database
Dim myrst As DAO.Recordset
 
Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
 
' Récupère la liste de mail présente dans la table
maTable = "Intervenant"
sSQL = "SELECT Mail_Intervenant from  & maTable & Where Intervenant.Mail_Intervenant IS NOT NUL "
 
Set Mail = db.OpenRecordset(sSQL)
With MailOutLook
.BodyFormat = olFormatRichText
.To = Mail
.Subject = "-- Intervention du jour --"
.Body = "Coucou"
'.Attachments.Add " Mon fichier pdf qui doit se créer.."
End If
.Send
End With
 
Exit Sub
Err_send_EnvoiMail_Click:
MsgBox "Une erreur a été produite." & vbCrLf & "Le message d'erreur est: " & Err.Description
Resume Erreur_Non
Erreur_Non:
End Sub

[GeoFrey]

Re,

Voilà en regardant ton code j'ai essayer de le modifier, dis moi ce que tu en penses.
Mon état à mettre en pdf s'apelle "Etatmail" j'imagine que je dois le mettre à la place de "doc" ?
Mail pour ce qui est du pdf seule la ligne ci-dessous suffit à le créer ?

Code :

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

 DoCmd.OutputTo acOutputReport, doc, "PDF", CurrentProject.Path & "\Intervention.pdf"

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
36
37
38
39
 
Private Sub EnvoyerEmail(doc As String, Email As String, sujet As String, Message As String)
Dim Reponse As Integer
Dim objOutlook As Object
Dim MonMessage As Object
Dim db As DAO.Database
Dim myrst As DAO.Recordset
 
 
'Vérifier que l'adresse existe
DoCmd.OutputTo acOutputReport, doc, "PDF", CurrentProject.Path & "\Intervention.pdf"
 
'Prend les valeurs de la liste de mails
maTable = "Intervenant"
sSQL = "SELECT Mail_Intervenant from  & maTable & Where Intervenant.Mail_Intervenant IS NOT NUL "
Set Mail = db.OpenRecordset(sSQL)
 
  'Assigner l'objet Outlook
Set objOutlook = CreateObject("Outlook.Application")
'Composer le message
Set MonMessage = objOutlook.createitem(0) 'ouvrir une structure de message1
MonMessage.To = Mail
MonMessage.Subject = "-- Interventions du jour --"
'Corps du message
 
MonMessage.Body = "Bonjour, trouvez en pièce jointe, les intervention à effectuer en ce " & Aujourdhui() & " ."
 
'-------------------
MonMessage.Attachments.Add CurrentProject.Path & "\Intervention.pdf"
MonMessage.Send
'Fermer Outlook
 
'Libérer la mémoire
Set objOutlook = Nothing
Set MonMessage = Nothing
 
Exit Sub
 
End Sub

[User]

Re,

Il faut mettre cette procédure d'envoi :

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
36
37
38
39
40
41
Private Sub EnvoyerEmail(doc As String, eMail As String, sujet As String, message As String)
Dim Reponse As Integer
Dim objOutlook As Object
Dim MonMessage As Object
 
On Error GoTo Erreur
 
DoCmd.OutputTo acOutputReport, doc, "PDF", CurrentProject.Path & "\Intervention.pdf"
 
  'Assigner l'objet Outlook
Set objOutlook = CreateObject("Outlook.Application")
'Composer le message
Set MonMessage = objOutlook.createitem(0) 'ouvrir une structure de message1
MonMessage.To = eMail
MonMessage.Subject =sujet
'Corps du message
 
MonMessage.Body = message
 
'-------------------
MonMessage.Attachments.Add CurrentProject.Path & "\Intervention.pdf"
MonMessage.Send
 
'Fermer Outlook
 
'Libérer la mémoire
Set objOutlook = Nothing
Set MonMessage = Nothing
 
Exit Sub
Erreur:
 
Select Case Err.Number
   Case -2147467259  ' adresse invalide
         MsgBox "Adresse e-mail invalide"
 
   Case 2501
         MsgBox Err.Number & " " & Err.Description
End Select
 
End Sub

Dans une autre procédure dans laquelle tu parcours la liste des enregistrements et pour chaque enregistrement tu envoies à l'adresse mail correspondante:

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
36
37
38
39
Private Sub CmdEnvoyer_Click()
 
On Error GoTo err_Mailing
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim eMail as string, sujet as string, message as string
 
    If (MsgBox("souhaitez-vous envoyer les emails ?", vbYesNo) = vbYes) Then
 
      Set db = CurrentDb
      Set rs = db.OpenRecordset("SELECT Mail_Intervenant from Intervenant Where Intervenant.Mail_Intervenant IS NOT NUL")      
 
      Do Until rs.EOF
          If (Nz(rs!Mail_Intervenant, "") <> "") Then
             eMail = rs!Mail_Intervenant
             Sujet = "-- Interventions du jour --"
             Message = "Bonjour, trouvez en pièce jointe, les intervention à effectuer en ce " & Aujourdhui() & " ."
             EnvoyerEmail "Etatmail", eMail, Sujet, Message ' exécute la procédure d'envoi pour cet e-mail.
          End If
        rs.MoveNext
      Loop
 
      rs.Close
      Set rs = Nothing
 
      db.Close
      Set db = Nothing
 
   End If
 
Exit Sub
 
    'en cas d'erreur
err_Mailing:
 
    MsgBox ("L'erreur suivante a eu lieu : " & vbCrLf & Err.Description)
 
End Sub

Concernant ton état "Etatmail", il faut aussi qu'il y ai un paramètre identifiant chaque intervenant, par exemple forms!F_Envoi!IdIntervenant pour synchroniser ton état sur le bon intervenant.

Dans le code de la 2ème procédure, au niveau de la boucle et avant l'envoi ça ferait quelque chose comme cela:

Code :

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

1
2
3
4
...
forms!F_Envoi!IdIntervenant=rs!IDIntervenant
EnvoyerEmail "Etatmail", eMail, Sujet, Message ' exécute la procédure d'envoi pour cet e-mail.
...

à+

[GeoFrey]

J'ai donc mit, EnvoyerMail dans un module. Puis le deuxième code sur click, et il me surligne "EnvoyerMail" dans le bouton avec comme erreur: Sub ou function non définie

[User]

Si tu l'as mise dans un autre module il faut la rendre publique :

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
36
37
38
39
40
41
Public Sub EnvoyerEmail(doc As String, eMail As String, sujet As String, message As String)
Dim Reponse As Integer
Dim objOutlook As Object
Dim MonMessage As Object
 
On Error GoTo Erreur
 
DoCmd.OutputTo acOutputReport, doc, "PDF", CurrentProject.Path & "\Intervention.pdf"
 
  'Assigner l'objet Outlook
Set objOutlook = CreateObject("Outlook.Application")
'Composer le message
Set MonMessage = objOutlook.createitem(0) 'ouvrir une structure de message1
MonMessage.To = eMail
MonMessage.Subject =sujet
'Corps du message
 
MonMessage.Body = message
 
'-------------------
MonMessage.Attachments.Add CurrentProject.Path & "\Intervention.pdf"
MonMessage.Send
 
'Fermer Outlook
 
'Libérer la mémoire
Set objOutlook = Nothing
Set MonMessage = Nothing
 
Exit Sub
Erreur:
 
Select Case Err.Number
   Case -2147467259  ' adresse invalide
         MsgBox "Adresse e-mail invalide"
 
   Case 2501
         MsgBox Err.Number & " " & Err.Description
End Select
 
End Sub

à+

[kiki29]

Salut, @GeoFrey: CDO fonctionne si tu n'as pas de proxy, ce qui dans ton cas m'étonnerait.

[GeoFrey]

Salut kiki !

J'ai regardé je ne sait combien de dizaines de forums et discussions à ce sujet, le problème sont les paramètres suivants :

Code :

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

1
2
3
4
 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2                  'ou cdoSendUsingPort : utilisation réseau
          .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr"    'nom ou IP du serveur SMTP
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"          'port utilisé

Je suis dans une grosse entreprise je n'ai pas trop d'accès "privé". Je ne sais pas chez qui est la ligne etc...
Et quand j'essayais j'avais une erreur sur le .send disant : sendusing non valide..

[GeoFrey]

Un pouce vert pour toi User, encore une fois merci

[User]

Bonsoir,

Le message d'avertissement Outlook s'affiche quand on utilise la méthode SendObject.

Avec les objets Outlook normalement il n'y a pas de problème.

Cdlt,

[GeoFrey]

Bonsoir bonsoir,

Comment Ca user ?
Avec ton code, j'envoie l'état créer en PDF, j'ai donc un .send donc j'ai les alertes pour chaque mail à qui Ca l'envoie :/ si j'arrive à corriger ça c'est parfait sinon tant pis

[User]

Bonsoir bonsoir,

Comment Ca user ?
Avec ton code, j'envoie l'état créer en PDF, j'ai donc un .send donc j'ai les alertes pour chaque mail à qui Ca l'envoie :/ si j'arrive à corriger ça c'est parfait sinon tant pis

Ah bon ?

Tu peux me donner le contenu du message d'alerte ?

Edit:
De mémoire, pour contourner ce problème il faut passer par Outlook,
J'ai un collègue qui m'avait conseillé d'utiliser le modèle OutLook, plutôt que la méthode sendObject, mais ce n'était pas suffisant pour éliminer complètement les alertes.

Il faut aussi dans outlook faire :

Outils > macro > Sécurité
Rubrique «Accès par programme», option sélectionnée: [o] Ne jamais m'avertir des activités douteuses (non recommandé)

à+

[GeoFrey]

Ce n'est pas un message d'erreur c'est simplement l'alerte Outlook avec les 5 secondes d'attente qui dit qu'un logiciel exterieur essaie de communiquer en gros et on doit accepter ou refuser et à partir de là le mail s'envoie.
J'essaie ça demain matin et je te tiens au courant
Merci et bonne soirée