Envoi d'un mail avec piece jointe

[alex_95]

Bonjour,

Voila je cherche à joindre une piece jointe à un mail envoyé automatiquement.
Mais helas, je n'y arrive pas, pouvez vous m'aider ?

Voici le code :

Code :

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
With Sheets("mail")
    For envoi = 2 To WorksheetFunction.CountA(.Columns("A"))
        type_etude = .Range("A" & envoi)
        projet = .Range("B" & envoi)
        fichier = .Range("C" & envoi)
        Sleep (3000)
        Subj = "Bulletin " & projet & " de " & mois_source
        nb_destinataires = WorksheetFunction.CountA(.Rows(envoi)) - 5
        For a_envoyer_a = 6 To WorksheetFunction.CountA(.Rows(envoi))
            If a_envoyer_a = 6 Then
                destinataire = .Cells(envoi, a_envoyer_a)
            Else: destinataire = destinataire & "," & .Cells(envoi, a_envoyer_a)
            End If
        Next a_envoyer_a
        EmailAddr = destinataire
        If nb_destinataires = 1 Then
            prenom = " " & .Range("E" & envoi)
        Else: prenom = ""
        End If
        Msg = "Bonjour" & prenom & ", " & vbCrLf & " " & vbCrLf & "Vous trouverez ci-joint le bulletin & type_etude & " " & projet & " construit à partir des données  " & donnees_source & "." _
        & vbCrLf & "Si vous avez des questions ou si vous souhaitez des informations complémentaires, n'hésitez pas à me contacter." _
        & vbCrLf & "" & vbCrLf & "Cordialement" & vbCrLf & "" & vbCrLf & "Xxxxxxx XXXXXX" & vbCrLf & "XX XXX"
        hlink = "mailto:" & EmailAddr & "?"
        hlink = hlink & "subject=" & Subj & "&"
        hlink = hlink & "body=" & Msg
        Stop
        Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:" & hlink
        Sleep (3000)
        SendKeys "%s", True
    Next envoi
End With
End Sub

Mais je ne connais pas le code pour joindre une piece...

Merci de votre aide

[Heureux-oli]

Code :

1
2
3
4
5
6
Dim myOut As Outlook.Application
Dim myMail As MailItem
 
Set myOut = GetObject("Outlook.Application")
 
myMail.Attachments.Add ("c:\temp\texte.txt")

Pour Outlook.

Oe, je ne sais pas !

[Philippe JOCHMANS]

Bonjour

Va voir ce code qui se trouve dans la FAQ Access, Papy Turbo (l'auteur) indiquer qu'il fonctionne avec Outlook Express.


Starec

[alex_95]

Merci.

Mais je cherche à le faire cette opération sous Outlook express et les codes ci dessus ne fonctionnent pas...

Car la commande

Code :

Set objOL = CreateObject("Outlook.Application")

ne fonctionne pas.

Avez vous une idée de comment faire pour arriver a envoyer le mail avec le pdf en piece jointe.

Merci d'avance

[Philippe JOCHMANS]

Re

As-tu été voir mon lien ?

Starec

[alex_95]

Oui mais ca ne fonctionne pas non plus.

As tu une autre solution.
Je continue a chercher mais pour le moment sans succès...

[Philippe JOCHMANS]

Re

Désolé, je n'ai pas d'autres pistes.

En faisant une recherche sur le forum, je suis tomber la-dessus..

Starec