Email and Outlook Freezing - Microsoft Access Forum


	Back to Access Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

Email and Outlook Freezing

Brad Wile

2 years ago

Anyone else having issue when trying to use any kind of email option in Access.
Sometimes it works, but most times it does not....
I have had a form with a button (macro) that emails an excel document with select records that has worked for years. And trying to select records and use the ToolBar icon is also an issue. I do not quite know how long the issue has been happening, it is sporadic. It will work 2 to 5 times then freeze both Access and Outlook.
I believe that it is an issue when sending the job to Outlook, that Access is not the problem.
It is NOT the KB5040442 Security update for windows 11, as it is not loaded in my system.
Windows ver 11 Pro
Version 23H2
Installed on 8-31-2023
OS Build 22635.3936
Windows Feature Experience Pack 1000.22700.1026.0

My office version:
Microsoft' Outlook' for Microsoft 365 MSO (Version 2407 Build 16.0.17830.20056) 64-bit

	Brad Wile OP @Reply 2 years ago
I did remove some updates and my Win 11 Pro is now 22H2

	Marc Lievens @Reply 2 years ago
Use Outlook.Application to send mail. It is very solid; I use it to send emails and afterward, I check if the mail is sent in the Sent Mailbox. I even add and delete appointments. To use the Outlook Object Library, you need to activate (in VBA editor, tools, references) the Enable "Microsoft Outlook 16.0 Object Library"

Marc Lievens @Reply

2 years ago

Sub SendEmailUsingOutlook()
    ' Declare variables
    Dim OutlookApp As Outlook.Application
    Dim OutlookMail As Outlook.MailItem

    ' Initialize Outlook application
    Set OutlookApp = New Outlook.Application

    ' Create a new email item
    Set OutlookMail = OutlookApp.CreateItem(olMailItem)

    ' Set email properties
    With OutlookMail
        .To = "[email protected]"         ' Recipient email address
        .Subject = "Test Email from Access"   ' Subject of the email
        .Body = "This is a test email sent from Access VBA." ' Body of the email
        .Attachments.Add "C:\path\to\file.txt" ' Add an attachment (optional)

        ' Send the email
        .Send
    End With

    ' Clean up
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing

    ' Confirmation message
    MsgBox "Email sent successfully!", vbInformation
End Sub

	Brad Wile OP @Reply 2 years ago
Thank you for the reply. Someone at Microsoft must have found their issue and corrected it. After some Windows Updates my system and some others that were having the same issue have all started working.

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Forum.

Next Unseen

New Feature: Comment Live View