MS Office and VBA
This category holds articles regarding general things in MS Office VBA independent from the MS Office application.
If you have to create and send an email automatically, the following method might help.
I have not tested it with HTML yet, but will do that at some point.
The method requires MS Outlook to be installed, since it is automating Outlook in order to create an email with attachment.
- Hits: 10190
The following looked simple enough for me.
Here a solution, which works for me however you have to be careful since it relies on a certain environment variable to be present. If this environment variable is not available the method automatically assumes the os to operate in 32 bit.
Unfortunately thie below did not work for me as it returned "x86" no matter if I started it on a 64 bit or 32 bit os.
- Hits: 9349
The below snippet will provide you with a systems full user name.
' @Author - Alexander Bolte
' @ChangeDate - 2014-10-13
' @Description - Returning the system user name.
Public Function getFullUserName() As String
Dim WSHnet As Object
Dim UserFullName As String
Dim userName As String
Dim UserDomain As String
Dim objUser As Object
Set WSHnet = CreateObject("WScript.Network")
userName = WSHnet.userName
UserDomain = WSHnet.UserDomain
Set objUser = GetObject("WinNT://" & UserDomain & "/" & userName & ",user")
UserFullName = objUser.FullName
Set WSHnet = Nothing
Set objUser = Nothing
getFullUserName = UserFullName
Since the source is using late binding it is not necessary to set a reference in the VBA Editor for a specific version of the referenced API named "WScript".
- Hits: 9390
Page 3 of 4