0

添付ファイル付きのメールが大量に届きます。添付ファイルを保存し、(プログラムで) 編集して参照を追加し、その新しい参照番号をログに記録し、保存した添付ファイルをさまざまな宛先に転送する必要があります。これはすべて Outlook vba で機能していますが、監査を容易にするために、新しく追加された参照番号を含むログのセルにハイパーリンクを追加する必要があります。これにより、新しく保存されたファイルにすばやく移動できます。

私は徹底的に検索しましたが、喜びはありませんでした。

        With LogObj.Sheets("Log")
        .Hyperlinks.Add Anchor:=LogObj.Sheets("Log").Cells(LastOrderRow, 3), Address:="",   SubAddress:= _
            "SavePath", TextToDisplay:=LogObj.Sheets("Log").Cells(LastOrderRow, 3)
        End With

私はもう試した：

        LogObj.Sheets("Log").Cells(LastOrderRow, 3) = _
        WorksheetFunction.Hyperlink(savePath, LogObj.Sheets("Log").Cells(LastOrderRow, 3))

必死になって、私は文字通りになってみました：

        OrderRef = "LogObj.Sheets("Log").Cells(LastOrderRow, 3)"
        LogObj.Sheets("Log").Cells(LastOrderRow, 3) = _
        WorksheetFunction.Hyperlink(""" & SavePath & """, OrderRef)

また、application.worksheetfunction の追加など、上記のさまざまなバリエーションがあります。

Outlook vba でこれを Excel で実行するための正しい構文を誰かが知っている場合は、共有していただければ幸いです。

どうもありがとう。

ネヴァ

4

1 に答える 1

1

ファイルへのパスはアドレスに入力する必要があります。これは私にとってはうまくいきました。パスが有効であることを確認してください。

With LogObj.Sheets("Log")
    Set rNext = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
    rNext.Value = lReference
    .Hyperlinks.Add Anchor:=rNext, Address:=sSavePath, TextToDisplay:=CStr(lReference)
End With
于 2013-09-29T00:59:24.287 に答える