Discussion :

[Ronibo]

Bonjour les amis,

Je viens vers vous concernant un problème que je n'arrive pas à résoudre.

J'utilise outlook, avec deux comptes.

Sur Excel, j'utilise ce code pour envoyer le mail :

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
Private Sub CBEnvoiMailPersonnalisé_Click()
Dim I As Integer
Dim LesContacts As String
Dim OutApp As Object, OutMail As Object
    If VérificationConnexionInternet = False Then
        MsgBox "Vous n'êtes pas connecté à internet !", vbInformation, "Pas de connexion internet"
        Exit Sub
    End If
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    Application.ActivateMicrosoftApp (xlMicrosoftMail)
    With Me.LBListeContacts
        For I = 0 To .ListCount - 1
            If .Selected(I) = True Then LesContacts = LesContacts & ";" & Mid(.List(I), InStr(1, .List(I), ":") + 2)
        Next I
    End With
    With OutMail
        .To = Mid(LesContacts, 2)
        .Subject = TBObjet.Value
        .HTMLBody = "<pre><Font size=3 Face=" & """ Times New Roman """ & ">" & TBMessage.Text & "</pre>" & "<br>" & "<img src=" & ExecuteExcel4Macro("'" & CheminDossierDevisFacturation & "[Modèle.xlsm]Données'!R4C24") & ">" & "<br>" & "<br>" & "<br>" & "<img src=" & ExecuteExcel4Macro("'" & CheminDossierDevisFacturation & "[Modèle.xlsm]Données'!R5C24") & ">"
        For I = 0 To Me.LBListePièceJointe.ListCount - 1
            .Attachments.Add Me.LBListePièceJointe.List(I, 1)
        Next I
        .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Je sais pas comment choisir l'expéditeur lorsqu'on envoie un message via excel

J'ai essayé d'ajouter .From, mais ça ne passe pas en vba

Code :

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

1
2
3
4
With OutMail
.From = "adresse mail choisie"
.To = Mid(LesContacts, 2)
.Subject = TBObjet.Value

Vous avez une idée à me proposer ?

Merci d'avance.

[Menhir]

Ce n'est pas une question Excel mais une question Outlook.

Tu trouveras la réponse ici : https://msdn.microsoft.com/fr-fr/lib.../ff866779.aspx

[Ronibo]

Bonsoir,

Merci pour la réponse, cependant je vois pas comment je pourrais associer cela avec excel

[Menhir]

Dans la page que je te mets en lien, il y a des exemples et des liens vers les propriétés que tu dois utiliser.
Si tu ne trouves pas comment les utiliser, c'est que tu y mets vraiment de la mauvaise volonté.