objet sur email

[natacha]

bonsoir

p ton mettre un objet par defaut
sur l'envoi du mail

la macro

Private Sub CommandButton1_Click()
Dim Origine As Workbook
Dim PremiereFeuille As Boolean
On Error GoTo er

PremiereFeuille = True
Set Origine = ActiveWorkbook
For i = 1 To ActiveWorkbook.Sheets.Count
If ListBox1.Selected(i - 1) = True Then
If PremiereFeuille = True Then
Origine.Sheets(ListBox1.List(i - 1)).Copy
Else
Origine.Sheets(ListBox1.List(i - 1)).Copy After:=Workbooks(Application.Workbooks.Count).Sheets(Workbooks(Application.Workbooks.Count).Sheets.Count)
End If
PremiereFeuille = False
End If
Next i


ActiveWorkbook.SendMail Recipients:=TextBox1.Value
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets('ACCUEIL').Activate

Exit Sub
er:
'MsgBox err.Description
End Sub

merci de votre aide

 

[myDearFriend!]

Bonsoir natacha,

Si j'ai bien compris la question (pas sûr :S )...

ActiveWorkbook.SendMail Recipients:=TextBox1.Value, Subject:='Voici le sujet de ce mail...'

Tu peux même demander un accusé réception en ajoutant un 3ème argument comme suit :

, ReturnReceipt:=True

Cordialement,

 

[natacha]

Merci beaucoup
ça marche super
je cherche aussi à mettre un petit message dans cette email

merci et bonne journée

 

[natacha]

le 3ème argument ne marche pas il ne me rev pas si l'email a eté lu

merci