Restore full virtual machine or individual guest files from 19 common file systems directly from the backup file. Schedule VM backups with PowerShell scripts. Set desired time, lean back and let the script to notify you via email upon completion.
Dim rst As New ADODB.Recordset Dim cnn As New ADODB.Connection Dim appOutlook As New Outlook.Application Dim ns As Outlook.Namespace Dim fldContacts As Outlook.MAPIFolder Dim itms As Outlook.Items, itm As Outlook.ContactItem Dim objContactFolder As Object Dim findstr As String Set cnn = CurrentProject.Connection Set appOutlook = CreateObject("Outlook.Application") Set ns = appOutlook.GetNamespace("MAPI") Set fldContacts = ns.GetDefaultFolder(olFolderContacts) Set itms = fldContacts.Items rst.Open "SELECT Employees.* FROM Employees WHERE Employees.EmployeeID=" & EmpID, cnn, adOpenKeyset, adLockOptimistic rst.MoveFirst 'Prevent duplicate contacts in Outlook. findstr = "[FirstName] = """ & rst!FirstName & """ and [LastName] = """ & rst!LastName & """" Set itm = itms.Find(findstr) If Not TypeName(itm) = "Nothing" Then Rem dupicate If MsgBox("Do you want to update the information for " & rst!FirstName & " " & rst!LastName & "?", vbApplicationModal + vbYesNo + vbQuestion + vbDefaultButton1) = vbNo Then itm = Nothing End If End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.