Mail et listbox

Bonsoir,

Je bloque sur la partie 3 du code.

1. Choisir un répertoire

2. Sélectionner un ou plusieurs fichiers à partir du répertoire sélectionné

3. Une fois le ou les fichiers, appuyer sur la touche pour les attacher à un email outlook et les envoyer

Je bloque sur comment réccupérer le ou les fichiers sélectionnés et les ajouter au mail.

Si une âme charitable peut jeter un coup d'oeil et m'aider à trouver la solution ou amélioré le code, je la remercie d'avance.

Cdlt

Aucune personne n'a eu une idée pour faire avancer le schmilblick ???

Onsmaram a écrit :

2. Sélectionner un ou plusieurs fichiers à partir du répertoire sélectionné

3. Une fois le ou les fichiers, appuyer sur la touche pour les attacher à un email outlook et les envoyer

il "suffit" de récupérer l'adresse complète du fichier , à adapter

le_nom_complet_du_fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx),*.xlsx", , "Choisir le fichier où se trouvent les données à importer...")

et l'indiquer dans

    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)
    With email
        .to = "manuel.valls@gouv.fr"
        .Subject = "test envoi mail"
        .ReadReceiptRequested = True
        .Attachments.Add le_nom_complet_du_fichier
        .display
    End With

Merci Steelson,

Ce n'est pas exactement ce que je voulais. Ce que j'aimerais pouvoir faire, c'est sélectionner les fichiers directement à partir de la listbox sans être obligé d'aller sur le browser de fichiers.

Mon problème c'est que j'arrive à sélectionner les différents document sur la listbox mais je ne sais pas comment faire pour récupérer cette sélection et les mettre comme document attachés à un email.

Cdlt

Je n'ai pas outlook ici, donc difficile de t'aider.

Essaie de faire une boucle et d'attacher chaque fichier individuellement, au lieu d'une liste complète ...

        FileNames = Me.ListBox1.List(lItem).ToString()
        .attachments.Add FileNames

J'ai essayé mais cela bloque à la ligne :

FileNames = Me.ListBox1.List(lItem).ToString()

La valeur de FileNames reste égale à Null !!!!

Si c'est plus facile d'envoyer un courrier avec un attachement sans utiliser outlook, je suis aussi preneur. Je tourne en rond depuis plusieurs jours et je commence à douter de pouvoir trouver une solution à cette question.

Je le fais via outlook, parfois avc plusieurs fichiers, mais je n'ai pas ici sur mon ordi perso outlook !

On va attendre les autres réponses ...

Waow Génial, j'y suis arrivé. Question résolue.

Merci

Parfait ! peux-tu nous mettre ta solution ?

Au fait, c'était tout simple.

Mais s'il y a des améliorations, je suis toujours preneur.

Private Sub CommandButton2_Click()

Dim lItem As Long

Dim OutApp As Object

Dim OutMail As Object

Dim SelectedItems As String

Set olApp = CreateObject("Outlook.application")

Set M = olApp.CreateItem(olMailItem)

On Error Resume Next

With M

.SentOnBehalfOfName = ""

.To = ""

.CC = ""

.BCC = " "

.Subject = "Documents pour ......."

.Body = "Bonjour," & vbCrLf & " " & vbCrLf & "Veuillez trouver en piéce jointe xxxxxxxxxxxxxxxxxxxxxxxxx. " _

& "Je vous en souhaite une très bonne réception." _

& vbCrLf & " " & vbCrLf & "avec mes sincères salutations" _

& vbCrLf & "FFFFFFFFF"

For lItem = 0 To Me.ListBox1.ListCount - 1

If Me.ListBox1.Selected(lItem) = True Then

.Attachments.Add dossier & "\" & Me.ListBox1.List(lItem)

SelectedItems = SelectedItems & Me.ListBox1.List(lItem) & vbNewLine

End If

Next lItem

If SelectedItems = "" Then

MsgBox "Vous n'avez sélectionné aucun fichier"

Else

MsgBox "Les fichiers sélectionnés pour être envoyés: " & vbNewLine & vbNewLine & SelectedItems

End If

.Display

End With

Set M = Nothing

Set olApp = Nothing

End Sub