GMAIL vba 获取当前用户并返回用户的 Gmail 地址

Question

我有从 Excel VBA 中生成 GMail 电子邮件的代码，但是，我正在寻找可以确定当前用户是谁并返回当前用户的 Gmail 电子邮件地址的代码。

Answer 1

我不知道是否有办法从代码中获取 GMAIL 地址，除非他们的 GMAIL 帐户打开了浏览器窗口

获取当前用户名的微软示例代码

' Makes sure all variables are dimensioned in each subroutine.
 Option Explicit

 ' Access the GetUserNameA function in advapi32.dll and
 ' call the function GetUserName.
 Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
 (ByVal lpBuffer As String, nSize As Long) As Long

 ' Main routine to Dimension variables, retrieve user name
 ' and display answer.
 Sub Get_User_Name()

 ' Dimension variables
 Dim lpBuff As String * 25
 Dim ret As Long, UserName As String

 ' Get the user name minus any trailing spaces found in the name.
 ret = GetUserName(lpBuff, 25)
 UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

 ' Display the User Name
 MsgBox UserName
 End Sub