2

私はVBAスクリプトを書くのはかなり初めてです。実際、私は新しく受信した電子メールを調べ、メッセージの本文をスキャンしてすべてのURLを開く小さなVBAスクリプトを作成しようとしています（このスクリプトは常に単一のURLを含むメッセージを対象としています）。 IE、FF、ChromeなどのWebブラウザ。SOとGoogleで同様のQを探してみました。私はここで1つ見つけました：電子メールが到着したときにURLを起動する方法は、電子メールが到着したときにURLを開く方法についてです。ただし、メッセージ本文を調べてそこからURLを選択するのではなく、常に固定URLを開いています。また、私はこれを見つけました：VB / VBAを使用してOutlookメッセージを検索し、特定のデータをExcelワークシートに抽出しますメッセージ本文を調べて何かを選択/検索します。私のシナリオでは、両方を統合したいのですが、基本的なスクリプトを思い付くことができません。誰かが私に2つを統合するための指針を教えてくれ、新しいメールがOutlookメールボックスに到着するたびにメッセージ本文からURLを開くという私の目標を達成するのを手伝ってくれませんか。前もって感謝します。

4

2 に答える 2

1 
Sub LaunchURL(itm As MailItem)

    Dim bodyString As String
    Dim bodyStringSplitLine
    Dim bodyStringSplitWord
    Dim splitLine
    Dim splitWord

    bodyString = itm.Body
    bodyStringSplitLine = Split(bodyString, vbCrLf)

    For Each splitLine In bodyStringSplitLine
        bodyStringSplitWord = Split(splitLine, " ")

        For Each splitWord In bodyStringSplitWord
            If Left(splitWord, 7) = "http://" Then
                Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE" & " " & splitWord)
            End If
        Next

    Next

    Set itm = Nothing

End Sub

Private Sub test()
    Dim currItem As MailItem
    Set currItem = ActiveInspector.currentItem
    LaunchURL currItem
End Sub
于 2013-03-01T04:32:39.197 に答える
0

アルファは、特定のドメインのユーザーのみを対象としたルールを適用したとしても、少し安全ではないことを示しています。作成した変数で urlstring をチェックする場合 (ローカル イントラネットからのみのリンクなど)、これは良い考えです。

if splitWord like "my_company_internat_url" then '...
于 2015-11-18T00:11:06.690 に答える