GMAIL vbaが現在のユーザーを取得してユーザーのGmailアドレスを返す

Question

Excel VBA内からGmailメールを生成するコードがありますが、現在のユーザーを特定して現在のユーザーのGmailメールアドレスを返すコードを探しています。

Answer 1

コードから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