Я пытаюсь отправлять письма, используя шаблон outlook oftt, используя vba, но он сидит в черновиках вместо отправки почты из outlook. - PullRequest
Новая
       12

Я пытаюсь отправлять письма, используя шаблон outlook oftt, используя vba, но он сидит в черновиках вместо отправки почты из outlook.

1 голос
/ 17 февраля 2020

Я использовал приведенную ниже кодировку, которую использовал ранее для какого-либо другого типа почты, но на этот раз не отправляю письма. Также не выбирайте идентификаторы электронной почты и данные, указанные в Excel. 

Sub Send_Recertification_From_Excel()

Dim oXlWkBk As Excel.Workbook ' Excel Work Book Object
Dim oOLApp As Outlook.Application
Dim oOLMail As MailItem
Dim lRow As Long
Dim olMailItem
Dim sMailID As String
Dim sSalutation As String
Dim sName As String
Dim sDetails As String
Dim sSubject As String
Dim mailsSentString As String
Dim templateName As String
templateName = "C:\Users\m540797\Desktop\Recertification\Recertifications"
On Error GoTo Err_Trap

Set oXlWkBk = ActiveWorkbook
Set oOLApp = GetObject(, "Outlook.Application")
If oOLApp Is Nothing Then
MsgBox "Please Open Outlook.."
Exit Sub
End If

Dim i As Integer

For i = 6 To 50
If Len(Trim(Sheet1.Cells(i, 1))) > 1 Then

    Set oOLMail = oOLApp.CreateItemFromTemplate(templateName)
    sMailID = Sheet1.Cells(i, 4)
    sSubject = "Recertification"


    With oOLMail
        .BodyFormat = olFormatHTML
        .HTMLBody = Replace(.HTMLBody, "<NAME>", Sheet1.Cells(i, 3))
        .SentOnBehalfOfName = "my mail ID given here"
        .To = sMailID
        .Subject = sSubject
        .CC = Sheet1.Cells(i, 6)
        .Send


    End With

    oOLMail.Send

Else
    Exit For
End If
Next i
MsgBox "Mails successfully sent to :" + vbCrLf + mailsSentString + vbCrLf + "with using the template :" + templateName

Destroy_Objects:
If Not oOLApp Is Nothing Then Set oOLApp = Nothing


Err_Trap:
If Err <> 0 Then
MsgBox Err.Description, vbInformation, "VBADUD AutoMail"
Err.Clear
GoTo Destroy_Objects
End If

End Sub

Не выдавая никакой ошибки, просто говорится, что письмо отправлено успешно, но оно лежит в черновике. «Можете ли вы проверить и подтвердить, в чем заключается ошибка в этом, или я что-то упустил?»

...