0

Outlook のルールによって実行されるスクリプトを作成しています。スクリプトは、メッセージの本文で特定の文字列を探し、一部のテキストを抽出します。

そのテキストをクリップボードにコピーして、別のアプリケーションで使用したいと考えています。

これが私のコードです：

Sub SaveAsText(MyMail As MailItem)

    Dim pos As String
    Dim loco As String

    pos = InStr(MyMail.Body, "message for Loco")
    loco = Mid(MyMail.Body, pos + 17, 8)

End Sub

ご協力いただきありがとうございます。

4

1 に答える 1

1

この Outlook 2003 マクロを実行しました。

Sub CopyToScratchPad()

  Dim DataToSave As New DataObject

  DataToSave.SetText "Test string"
  DataToSave.PutInClipboard

End Sub

次に、メモ帳を開いて Ctrl+C をクリックしました。「テストストリング」登場。

だから、あなたはやりたいことをすることができますが、これは本当にあなたの目的を達成するための最良の方法ですか?

于 2012-10-31T23:49:50.037 に答える