Excel vba macro stopped working to send outlook mail

Jason Raedy 0

Recent change to windows11 has stopped my excel macros from sending emails through outlook.

I have added Outlook, Excel and Office library 16.0.

simo-k 1,350 Reputation points

2024-12-09T13:06:52.2266667+00:00

What is the type, version, and build of the app?

Which email service do you use?

What is the domain of your email address (company name masked)?

What is your email connection method? (Exchange, IMAP, POP)

Jason Raedy 0

excel version 2408 Build 17928.20216

Outlook 365

here is the code that no longer works:

Sub email_range()

Range("p2").Select

x = ActiveCell.Value

Do Until x = ""

    Range("email_clear").ClearContents

    Range("email_to") = ActiveCell.Value

    r1 = Range("row_1")

    r2 = Range("row_2")

    If x = "not found" Then GoTo 10

Range(Cells(r1, 1), Cells(r2, 13)).Select

Selection.SpecialCells(xlCellTypeVisible).Select

Selection.Copy

Sheets("email page").Select

Range("A2").Select

Selection.PasteSpecial Paste:=xlPasteValues

Range("A1").Select

Dim AWorksheet As Worksheet

Dim Sendrng As Range

Dim rng As Range

On Error GoTo StopMacro

With Application

    .ScreenUpdating = False

    .EnableEvents = False

End With

' Sheets("email page").Visible = True

' Sheets("email page").Select

Set Sendrng = Worksheets("email page").Range(Cells(1, 1), Cells(Range("count_names") + 1, 9))

Set AWorksheet = ActiveSheet

' x = "\Nexteer.com\data\S\USMISAG\STEERING\Manufacturing Documents\OA\Plant 9\2019 Plant 9 Production Tracker.xlsm"

y = Range("email_to")

With Sendrng

    .Parent.Select

    Set rng = ActiveCell

    .Select

    ActiveWorkbook.EnvelopeVisible = True

    

    

    With .Parent.MailEnvelope

If Range("weekend_check") > 1 Then

            .Introduction = "The following item(s) were received this weekend!      " & _

             "  This is an automated email...please see your CSR for any issues."

Else

        .Introduction = "The following item(s) were received yesterday!      " & _

             "  This is an automated email...please see your CSR for any issues."

End If

        With .Item

' .To = "jason.raedy@nexteer.com"

            .To = y

            .CC = ""

            .BCC = ""

If Range("weekend_check") > 1 Then

            .Subject = "Indirect Material Received This Weekend"

Else

            .Subject = "Indirect Material Received Yesterday"

End If

            .send

        End With

    End With

    rng.Select

End With

AWorksheet.Select

10 Sheets("yesterday").Select

Cells(r2 + 1, 16).Select

x = ActiveCell.Row

Loop

StopMacro:

With Application

    .ScreenUpdating = True

    .EnableEvents = True

End With

ActiveWorkbook.EnvelopeVisible = False

Sheets("yesterday").Select

End Sub

simo-k 1,350 Reputation points

2024-12-09T13:35:25.6066667+00:00

Please step through the add-in (Tracker.xlsm) and check for any errors when sending emails.

Share via

Excel vba macro stopped working to send outlook mail

Your answer