Envoi fichier actif par Outlook

Bonjour à tous,

Je tourne en rond sur les différents forum et me vois contraint (manque de temps pour des recherches supplémentaires) de solliciter votre aide.

Un code trouvé sur la toile répond partiellement à ma demande :

Je souhaite envoyer le fichier actif par Outlook un 1 seul clic...

Code trouvé:

Sub Envoyer()

Dim sDest(), sSujet As String

sDest = Sheets("Settings").Range("I4:I12").Value

sSujet = Sheets("Settings").Range("K4").Value

Application.Dialogs(xlDialogSendMail).Show sDest, sSujet, True

End Sub

C'est presque parfait !

Je souhaiterais pouvoir ajouté 2 éléments et je ne sais pas comment faire.

1) une liste destinataire en copie (.CC) --> en Sheets("Settings") également

2) un texte prédéterminé dans le corps de texte (.body) --> en Sheets("Settings") également

Avec le code plus haut, j'arrive hélas que partiellement à mon souhait.

Des experts en la matière pour une aide spontanée ?

D'avance merci !!

Cordialement

Willau

Bonjour Willau,

cette propriété ne permet pas de joindre un fichier ( en plus),

il n'y a que 3 arguments possibles :Recipients , Subject, return_receipt

il faut utiliser un autre application de mail .

Merci i20100 !!

J'ai essayé d'autres codes, mais sans succès jusqu'ici.

Aurais-tu une piste pour faciliter la chose ?

Les applications que j'ai essayé sauvegardaient le documents sous C:\

C'est hélas protégé par l'admin dans la boite.... Existe-t-il une autre piste ?

Je continue quoi qu'il en soit les recherches de mon côté... Il me faut une solution !

Merci encore pour tes précisions !

Cordialement

Willau

quel application de mail veux-tu utiliser ?

MailEnvelope ou Outlook ou autre

Je souhaite utiliser Outlook.

(J'ai vu des posts concernant ce sujet que tu avais écrit... Essai hélas infructueux jusqu'ici).

Merci.

re,

voici un exemple,

Sub Mail_Outlook()
'Nécessite d'activer la référence "Microsoft Outlook Library"
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

     tBody = Range("M2").Value & vbCrLf & vbCrLf & _
            Range("M3").Value & vbCrLf & vbCrLf & _
            Range("M4").Value & vbCrLf & vbCrLf & _
            Range("M6").Value & vbCrLf & _
            Range("M7").Value & Range("M8").Value & vbCrLf & _
            Range("M9").Value & vbCrLf & _
            Range("M10").Value & vbCrLf & _
            Range("M11").Value & vbCrLf & _
            Range("M12").Value & vbCrLf & _
            Range("M13").Value & vbCrLf

    For Each c In Sheets("Settings").Range("I4:I12")  'à adapter
        tTo = tTo & c & "; "
    Next
    tTo = Left(tTo, Len(tTo) - 1)

    For Each c In Sheets("Settings").Range("I15:I18")  'à adapter
        tCC = tCC & c & "; "
    Next
    tCC = Left(tCC, Len(tCC) - 1)

    On Error Resume Next

    With OutMail
        .Display
        .To = tTo
        .CC = tCC
        .BCC = ""
        .Subject = Sheets("Settings").Range("K4").Value
        .Attachments.Add ThisWorkbook.FullName
        .Body = tBody
        .Display
'        .Send
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Super !

Je vérifie ça et te fais un retour.

Merci