Copier une chaîne dans le Presse-papiers à l'aide d'un script dans Outlook 2007

Question

Je crée un script qui sera déclenché par une règle dans Outlook. Le script recherche une chaîne spécifique dans le corps du message et extrait du texte.

Je voudrais copier ce texte dans le presse-papiers pour l'utiliser dans une autre application.

Voici mon code:

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 

Merci pour votre aide.

Answer 1

j'ai couru cette macro Outlook 2003:

Sub CopyToScratchPad() 

    Dim DataToSave As New DataObject 

    DataToSave.SetText "Test string" 
    DataToSave.PutInClipboard 

End Sub 

je puis ouvert et NotePad + C Ctrl cliqué. "Chaîne de test" est apparu. Donc, vous pouvez faire ce que vous voulez, mais est-ce vraiment la meilleure façon d'atteindre votre objectif?