MS OutlookがAccess vbaプロシージャを妨害する

Question

私はWindows 7 EnterpriseとOffice 2013 Professionalを使用しています。何年も前に私はAccessで以下の手順を使用してOutlookで200人以上のクライアントにメールを一度に送信しました。この手順により、私は各電子メールと添付ファイルを（Wordの差し込み印刷とpdfを使用して）パーソナライズすることができます。シンプルで信頼性が高く、時間を大幅に節約できます。最近、この手順はMS Outlookによって妨げられました。添付ファイルを参照してください。それは私に各電子メールの「許可」をクリックさせ、私の手続きを役に立たなくする。私は3つのMSヘルプ連絡先に電子メールで連絡したが、助けにならなかった。当時の代理店にとっては「技術的すぎる」と言われ、私は他の人と連絡を取ると言われました。誰も今まで私に連絡していません。誰でも何かを提案できますか？問題は最近始まったばかりです。私は最近Officeをアンインストールしようとするべきかどうか疑問に思います。 。ここに私の手順は以下のとおりです。

Private Sub EmlSetUP_Click() 

If IsNull(Me.Email) Then 
    DisplayMessage ("No email address.") 
    Exit Sub 
Else 
    RemoveSchma 
    DoCmd.TransferText acExportMerge, "", "qryRetSlip", conAddrPth & "\DataSource.txt", True, "", 1252 
    SndEml 
End If 

End Sub 

Sub SendEml() 

Dim objOutlook As New Outlook.Application 
Dim objMail As MailItem 
Dim Subj As String 
Dim Text As String 
Dim PathName As String 
Dim PathName2 As String 

Subj = "DBS Checks" 

Text = "I have received a payment for £53.00 which I cannot apply. The only information given is 'DBS Check'." & vbCr & vbCr & _ 
    "I'm emailing all possible clients. Is it from you?" & vbCr & vbCr & _ 
    "Best wishes." & vbCr & vbCr & EmailSig 

PathName = conDesktp & "\DBS Checks.xls" 
PathName2 = conAddrPth & "\Documents Needed.pdf" 

OpenWordDoc2 

Set objOutlook = New Outlook.Application 
Set objMail = objOutlook.CreateItem(olMailItem) 

With objMail 
.To = Email 
.Subject = Subj 
'.DeleteAfterSubmit = True 
.Body = Text 
.NoAging = True 
.Attachments.Add PathName 
.Attachments.Add PathName2 
'.Display (True) 
.Send 
End With 

Set objMail = Nothing 
Set objOutlook = Nothing 

End Sub 


Private Sub EmlBulk_Click() 

Dim rstForm As Recordset 
Dim Wrng As Integer 

Wrng = MsgBox("WARNING! This will immediately send an email to ALL client managers." & vbCr & vbCr & "You will not be able to stop it!!!" _ 
      & vbCr & "Are you certain you have got the text of the email and any attachments right?", vbCritical + vbDefaultButton2 + vbYesNo, "DBS Database") 

If Wrng = 7 Then 
    Exit Sub 
Else 
    Set rstForm = Forms!frmClientEmail.Form.Recordset 

    Do While Not rstForm.EOF 
     If IsNull(Me.Email) Then 
      rstForm.MoveNext 
     Else 
      RemoveSchma 
      SndEml 
      rstForm.MoveNext 
     End If 
    Loop 
End If 

DoCmd.Close acForm, "frmClientEmail" 
DoCmd.OpenForm "Switchboard" 

End Sub 

Answer 1

を議論し、あなたのオプションのリストについてhttp://www.outlookcode.com/article.aspx?id=52を参照してください。

基本的にあなたのオプションは

拡張MAPI（C++または唯一のデルファイ、無VBAに）RedemptionまたはClickYesよう

サードパーティ製品を最新のAV製品のインストール

1. です。