Discussion :

[da_latifa]

Bonjour tout le monde,

voilà le code que je fais pour envoyer du courriel via access, il m'ouvre une boite outlook que j'ai configuré en Imap avec mon compte Gmail, mais mon problème c'est que lorsque je pèse sur le bouton envoyé, un message d'erreur s'affiche disant:
le dossier élément envoyés n'est pas disponible

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
43
44
45
46
47
48
49
50
51
52
53
54
 
 
Public Sub SendOLMail( _
  ByVal strEmail As String, _
  ByVal strObj As String, _
  ByVal strMsg As String, _
  ByVal blnEdit As Boolean, _
  Optional ByVal avarFichiers As Variant)
 
 
Dim ol As Outlook.Application
Dim mi As Outlook.MailItem
 
 strEmail = "xxx@gmail.com"
 strObj = "Test"
 strMsg = "Bonjour, hello"
 blnEdit = True
 avarFichiers = "fichier1.PDF"
 
 
Dim varPJ As Variant
 
' Créer une instance d'Outlook
On Error GoTo OLMailErr
Set ol = New Outlook.Application
 
' Créer un objet Email
Set mi = ol.CreateItem(olMailItem)
 
' Paraméter le message
With mi
  .To = strEmail
  .Subject = strObj
  .Body = strMsg
 
  ' Joindre les pièces, s'il y en a
    Attachments.Add "C:/Etiquette.docx"
 
 
  If blnEdit Then
    .Display
  Else
    .send
  End If
End With
 
Set mi = Nothing
Set ol = Nothing
Exit Sub
 
OLMailErr:
    MsgBox "Erreur : " & err.Number & vbCrLf & err.Description
    Exit Sub
End Sub

quelq'un pourrait il m'aidé SVP ? Merci

[EricDgn]

Sans doute simplement \ au lieu de / !

Code :

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

Attachments.Add "C:\Etiquette.docx"

Bonne continuation.

[da_latifa]

Merci pour votre réponse, mais c'est pas ça le problème, c'était une erreur de ma part,
là ce que j'ai fait pour que ça marche... c'est que j'ai ouvert outlook et je l'ai fermé, alors ça m'a pas affiché le message d'erreur, mais le message a resté dans la boite d'envoie jusqu'à ce que j'ouvre encore outlook pour qu'il parte, en attendant de trouver une meilleur solution je suis obligé d'ouvrire outlook puis de le fermer puis d'envoyer mon message puis de l'ouvrir encore pour que le message part réellement , car si je laisse outlook ouvert il m'affiche un autre message d'erreur disant que le fichier .pst est déjà ouvert...
Merci

[EricDgn]

Message supprimé (envoyé sur ce post par erreur).
Bonne continuation.

[da_latifa]

Bonjour,
Je penses que vous vous êtes trompé de sujet, votre message n'a rien à voir avec cette discussion, Merci

[EricDgn]

Pour ce qui de l'envoi de l'email, j'observe que
ligne 17: blnEdit = True
ligne 40: If blnEdit Then
donc c'est toujours l'instruction .Display qui s'applique.
En fait il faudrait supprimer les lignes 40, 41, 42 et 44 pour ne retenir que la ligne 43: .Send

A tester. Cela ne résout peut-être qu'une partie du problème !

Point de détail: la ligne 53 est inutile, répétée en 54.

Cordialement.

[da_latifa]

ok, mais ça résoud pas le problème, ça fait juste ne pas ouvrir la fenêtre d'outlook...
Merci

[Invité]

ok, mais ça résoud pas le problème, ça fait juste ne pas ouvrir la fenêtre d'outlook...
Merci

Bonsoir,
le quel as tu choisis?

Code :

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

1
2
3
4
5
If blnEdit Then
    .Display 'true j'affiche le Display et c'est l'utilisateur qui click sur envoi!
  Else
    .send 'False le mail par tout seule
  End If

http://www.developpez.net/forums/d14...t/#post7968025