Discussion :

[GIPPE]

Bonjour,

Je viens de récupérer ce code afin d'envoyer des pieces jointes par le biais d'Outlook.

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
Sub EnvoiMailMéthodeOLE(Adresse As String, Objet As String, Corps As String, Optional Pièce As String, Optional Cc As String, Optional Bcc As String)
    Dim MonAppliOutlook As New Outlook.Application
    Dim MonMail As Outlook.MailItem
    Dim MaPièce As Outlook.Attachments
    Set MonMail = MonAppliOutlook.CreateItem(olMailItem)
    With MonMail
        .To = Adresse
        If Not IsNull(Cc) Then .Cc = Cc
        If Not IsNull(Bcc) Then .Bcc = Bcc
        .Subject = Objet
        .Body = Corps
        If Not IsNull(Pièce) Then
            Set MaPièce = .Attachments
            MaPièce.Add Pièce, olByValue
        End If
        .Send
    End With
End Sub

Le problème est que les destinataires utilisant Outlook Express ne reçoivent rien

Ma question: Existe t'il un code pour pouvoir envoyer des pieces jointes via Outlook Express?

Merci.

[Maxence HUBICHE]

Bonjour,
<... snip...>Le problème est que les destinataires utilisant Outlook Express ne reçoivent rien

Si c'est un problème de DESTINATAIRE, il faut voir ce qui se passe du côté des destinataires !
Pourquoi tous les autres recevraient-ils quelque chose ?

Est-ce que cela se produit sur UN SEUL poste ? Sur tous les postes en Outlook Express ?
Recoivent-ils le message mais pas les pièces jointes ? Ni le message ni la pièce jointe ?
...

[GIPPE]

Bonjour,

Est-ce que cela se produit sur UN SEUL poste ?

Je viens de tester 5 postes et 5 destinataires différents :toujours rien.

Le message ainsi que la piece jointe ne sont pas reçus.

Je commence à me demander si le code que je viens de récupérer, fonctionne avec un "emetteur" Outlook et un "récepteur" Outlook.

A votre avis?

[ft035580]

Salut,

Essaie:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hWnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, _
        ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Commande0_Click()
 Dim Piece_Jointe As String
    Piece_Jointe = "C:\PRIVE\Mes Documents\"
    ShellExecute Me.hWnd, "Open", "mailto:machin@truc.fr?subject=ENVOI" & "&body=Ceci est un test", _
       vbNullString, vbNullString, vbNormal
    DoEvents
       SendKeys ("%I{ENTER}" & Piece_Jointe & "{TAB}{TAB}{ENTER}")
       
End Sub

Pour un envoi automatique,remplace vbNormal par vbHide et ajoute

Code :

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

1
2
 SendKeys ("%s")
    MsgBox "Votre mail a été envoyé avec succès"

à la fin

Bon courage.

[fevec]

Bonjour à tous,
encore une fois je me glisse dans une fin de discussion.
Travaillant en Access97, j'ai tendance à essayer tous les codes pour cette version, pour voir les performances (rapidité, ergonomie, etc.)
J'utilise encore un autre code pour envoyer par mail.

Mon propos est : j'imagine que le dernier code proposé insère une pièce jointe, (ou bien ouvre une boite de dialogue correspondant au répertoire indiqué)
si je comprends la ligne suivante

Code :

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

       SendKeys ("%I{ENTER}" & Piece_Jointe & "{TAB}{TAB}{ENTER}")

J'utilise OutlookExpress 6.00 ; et pas d'insertion de pièce jointe ?

Ai je mal interprêté ce que fait le code proposé ?

Bien amicalement,
fevec

[Maxence HUBICHE]

Quelques petites 'améliorations'
Remplacer

Code :

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

1
2
Set MaPièce = .Attachments
            MaPièce.Add Pièce, olByValue

par

Code :

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

1
2
 
.Attachments.Add Pièce

Remplacer

Code :

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

    Dim MonAppliOutlook As New Outlook.Application

par

Code :

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

1
2
3
 
    Dim MonAppliOutlook As Outlook.Application
    Set MonAppliOutlook = New Outlook.Application

regarde là : http://access.developpez.com/faq/?page=Outlook#outlook

Normalement, ton code n'est pas mauvais.
Regardes dans le dossier des éléments envoyés si le message est bien parti , ou s'il est toujours dans le dossier 'Boîte d'envois' ou 'Brouillons' ou même 'Boîte de réception'

[GIPPE]

Bonjour,

Je désespère....

Ca ne fonctionne pas.J'utilise Outlook Express et le code de la FAQ ne fonctionne pas.(Apparemment il est prévu seulement pour Microsoft Outlook, que je ne possède pas)

Je n'ai rien dans les éléments envoyés, rien dans la boite d'envoi.

Le code de Ft035580 fonctionne mais ce n'est pas très esthétique surtout si on possède un PC qui rame.

Avez vous des idées?

Merci de vos commentaires.