Mail par Excel Fermé

Question

Bonjour, 

J'essaye d'envoyer des mails à partir d'une feuille qui s'ouvre sur les donnéesd'une autre feuille qui me sert de base.

Dans cette feuille existe un texte avec des TextBox qui sont remplis par les données de la base. Ce qui donne une belle lettre. Je voudrais envoyer cette lettre à l'adresse mail contenue dans le TextBox7.. Impossible de récupérer cette adresse. je bloque sur le SendMail Récipient.
Mouvez-vous m'aider?
Voici mon code sur lequel je travaille:

Sub MacroMail()
ThisWorkbook.Windows(1).SelectedSheets.Copy
If TextBox7 <> " " Then
Dim adr As Variant
adr = TextBox7
AccuseReception = True
Sujet = "Remerciement"
ActiveWorkbook.SendMail Recipients:="adr", _
                        Subject:="Actemi Remerciement", _
                        ReturnReceipt:=FalseActiveWorkbook.Close False
Else: MsgBox "Pas d'adresse mail envoyer par courrier"
End If
End Sub

eljojo_e · Answer

Bonjour,

essaye ca

Private Sub mailing()

Sujet = "Demande " & Range("d4").Value & " " & Range("e4").Value

Msg = "Monsieur le président" & vbLf & vbLf & "Nous vous informons etc..."

adrrr = "JeanPiere@xxx"

toto = "C:\Program Files\Mozilla Thunderbird	hunderbird -compose attachment="",body=" & Msg & ",subject=" & Sujet & ",to=" & adrrr

Call Shell(toto)

End Sub

Par contre, Ca marche qu'avec mozzilla Thunderbird, et pour les accusés de réception, ca se configure pour en demander automatiquement,