Bonjour,
Je travaille sur une application VB6 qui envoi des mails en utilisant le serveur SMTP de l'entreprise. le problème est qu'il faut un accès authentifié pour permettre l'envoi aux adresses mails externes.
Cette authentification est faite avec l'identifiant et le mot de passe windows de l'utilisateur de l'application. Pour l'instant j'arrive à récupérer l'identifiant windows en utilisant le code suivant:
Y a t'il d'autres fonctions API équivalentes qui permettent de récupérer le password et le domaine.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Private Declare Function WNetGetUser& Lib "Mpr" Alias "WNetGetUserA" (lpname As Any, ByVal lpUserName$, lpnLength&) Private Sub Command2_Click() Dim username As String Dim cbusername As Long Dim ret As Integer username = Space(256) cbusername = Len(username) ret = WNetGetUser(ByVal 0&, username, cbusername) If ret = 0 Then ' Success - strip off the null. username = Left(username, InStr(username, Chr(0)) - 1) Password = Left(Password, InStr(Password, Chr(0)) - 1) Else username = "" End If Call MsgBox(username) End Sub
Merci pour vos réponses.
Partager