Programımızı kimler kullanıyor.

Option Explicit
Private S1 As String
Private Declare Function GetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Public Function FindUserName() As String
S1 = Space(512)
GetUserName S1, Len(S1)
FindUserName = Trim$(S1)
End Function

On Error Resume Next

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com" 'Gmailin Smtp Adresi
Flds.Item(schema & "smtpserverport") = 465 'Gmailin Smtp Portu
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "gmailadresi@gmail.com"
Flds.Item(schema & "sendpassword") = "gmailşifresi"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "[color=#32CD32]gmailadresi@gmail.com[/color]"
.From = "[color=#6B8E23]Mail Kimden Geldi. ?[/color]" 'Kendi Mail Adresinizi Yazın
.Subject = "Programınız Kullanıldı !"
.HTMLBody = "Programınız" & vbCrLf & FindUserName & "Tarafından Kullanıldı !"
.Sender = ""
.Organization = "Mail Organtion"
.ReplyTo = ""
Set .Configuration = iConf
SendEmailGmail = .Send
End With