Sub SendMessage()
    Dim objOutlook As Outlook.Application
    Dim objRecipient As Recipients
    Dim objAttachment As ATTACHMENT
    Dim objMailItem As MailItem
    Dim strEmail_Address As String
    
    Set objMailItem = Outlook.Application.CreateItem(olMailItem)
    
    With objMailItem
        
        strEmail_Address = "test@rambler.ru"
        .To = strEmail_Address
        .Subject = "Here is my test messages for your review"
        .Body = "Privet!!!" & vbCrLf & vbCrLf
        .Importance = olImportanceHigh

        Set objAttachment = .Attachments.Add("D:\55.TXT")
   
        .Display
        .Send
        
     End With
 End Sub

Public Sub Sync()
    Dim nsp As Outlook.NameSpace
    Dim sycs As Outlook.SyncObjects
    Dim syc As Outlook.SyncObject
    Dim i As Integer
    Dim strPrompt As Integer
    
    Set nsp = Application.GetNamespace("MAPI")
    Set sycs = nsp.SyncObjects
    For i =  1  To sycs.Count
        Set syc = sycs.Item(i)
        strPrompt = MsgBox("Do you wish to synchronize " & syc.Name & "?", vbYesNo)
        If strPrompt = vbYes Then
            syc.Start
        End If
    Next
End Sub