Salut,
J'ai un fichier excel qui envoie des mail via VBA.
Excel me demande mon adresse et mon mot de passe, je voudrais, lors de la saisie du mot de passe que les caractères s'affichent en **** a la place des lettres.
Merci a vous
Function GetSMTPServerConfiguration() As Object
Dim Cdo_Config As New CDO.Configuration
Dim Cdo_Fields As Object
Set Cdo_Fields = Cdo_Config.Fields
With Cdo_Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.gmail.com"
.Item(cdoSMTPServerPort) = 465
.Item(cdoSendUserName) = InputBox("Veuillez saisir votre identifiant")
.Item(cdoSendPassword) = InputBox("Veuillez saisir votre mot de passe gmail")
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSMTPUseSSL) = True
.Update
End With
Set GetSMTPServerConfiguration = Cdo_Config
Set Cdo_Config = Nothing
Set Cdo_Fields = Nothing
End Function