Mail par Excel
mannkael
-
eljojo_e Messages postés 1255 Statut Membre -
eljojo_e Messages postés 1255 Statut Membre -
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
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
1 réponse
-
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\thunderbird -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,
