OutlookでYahoo!メールが送信できない時の解決方法 | 配信不能 554エラー

Sub SpamAvoid()
'ハイパーリンク削除
    Dim objWord As Object
    Dim objHyperLinks As Object
    Dim objHyperLink As Object
    
    '本文のオブジェクトを取得
    Set objWord = ActiveInspector.WordEditor
    Set objHyperLinks = objWord.Range.Hyperlinks
    'ハイパーリンク削除
    For i = 1 To objHyperLinks.Count
        For Each objHyperLink In objHyperLinks
            objHyperLink.Delete
        Next
    Next

'置換処理
    Dim r As Object
    Const wdFindContinue = 1
    Const wdReplaceAll = 2
    
    With Application.ActiveInspector
      If .IsWordMail = True And .EditorType = olEditorWord Then
        Set r = .WordEditor.Range(0, 0)
        With r.Find
            .Text = "[\!-~]@[\@][\!-~]@[\>\]]"
                '[\!-~] 英数字記号全部
                '@      前の範囲1個以上
            .Replacement.Text = "" 'BLANK
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchWildcards = True
            .MatchFuzzy = False
            .Execute Replace:=wdReplaceAll
        End With
      End If
    End With
End Sub