Recent content by noliveira

Dear all, I´m having problem with this code... Can anyone help me? The idea is send an e-mail for every mail fields on a table. But the code is reading always the same mail address: Private Sub SendEMail() On Error GoTo Err_SendEMail Dim varTo As Variant Dim stBody As...

Dear all, I have this code working and would like to insert a progress bar. I´m having problems to do that... Sub getExpiredUsers() MsgBox "This script can take a few minutes to run!" & vbNewLine & "Please wait a while...", , "Return Experied Users Accounts" Set objShell =...