Отправка электронной почты из определенной учетной записи в Outlook с помощью Excel VBA - PullRequest
Новая
       6

Отправка электронной почты из определенной учетной записи в Outlook с помощью Excel VBA

0 голосов
/ 07 января 2019

Я хочу создать файл Excel, в котором некоторые пользователи могут совместно использовать один и тот же файл и отправлять массовые рассылки с общей учетной записью «abc@gmail.com», и, поскольку все пользователи могут не иметь одинаковый номер учетной записи в Outlook, так что было бы лучше, если бы код мог искать электронную почту вместо номера счета.

После нажатия кнопки не появляется сообщение об ошибке, и появляется сообщение «Отправлено!» всплывающее окно успешно после нажатия кнопки, однако электронное письмо не может быть успешно отправлено (я не могу найти запись об отправке из своего почтового ящика)

Я пытался исправить это целый день, и было бы очень признательно, если бы кто-то мог помочь мне в этом 

Private Sub sendmail_btn_Click()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Data")
    Set OutApp = CreateObject("Outlook.Application")

    Dim i As Integer
    Dim last_row As Integer
    last_row = Application.WorksheetFunction.CountA(ws.Range("A:A"))

    Dim oAccount As Outlook.Account
    For Each oAccount In Outlook.Application.Session.Accounts

        If oAccount = "abc@gmail.com" Then

            For i = 2 To last_row

                Set OutMail = OutApp.CreateItem(0)

                With OutMail
                    .To = ws.Range("A" & i).Value
                    .CC = ws.Range("B" & i).Value
                    .BCC = ws.Range("C" & i).Value
                    .Subject = "Testing in progress - " & Cells(i, 4).Value
                    .HTMLBody = "email body"
                    Set .SendUsingAccount = oAccount
                    .Send

                End With

            Next i

        Else

        End If

    Next

    MsgBox "Sent!"

    Set ws = Nothing
    Set OutApp = Nothing

End Sub
...