XL 2016 Introduire le mot de passe Outlook dans un Macro VBA

[MOEZ-TUN]

Comment peut on Introduire le mot de passe Outlook dans un Macro VBA.

'******************
'envoyer un message
'******************
Dim Plage As Range
Dim Mafeuille As Worksheet
Dim NbLigne As Integer

ActiveCell.Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With Selection.Parent.MailEnvelope.Item

For i = 2 To Worksheets("Listes").Range("I" & Rows.Count).End(xlUp).Row
Destinataires = Destinataires & ";" & Worksheets("Listes").Range("I" & i).Value
Next i
.To = Destinataires
.Subject = "Demande de scaling" + TextBox1.Value

.send
End With


ActiveWorkbook.EnvelopeVisible = True


Unload Me

MsgBox "Votre demande etait envoyé"