[OUTLOOK] lancer un batch externe

Fermé
fleps Messages postés 4 Date d'inscription mercredi 20 septembre 2006 Statut Membre Dernière intervention 14 mai 2007 - 21 sept. 2006 à 10:34
teebo Messages postés 33491 Date d'inscription jeudi 14 octobre 2004 Statut Modérateur Dernière intervention 24 février 2011 - 21 sept. 2006 à 16:30
A partir d'un message selectionner dans OUTLOOK 2003, je souhaiterais lancer une action qui activerai un batch avec comme parametres le sujet et le texte du mail.

comment proceder ??

merci
A voir également:

3 réponses

teebo Messages postés 33491 Date d'inscription jeudi 14 octobre 2004 Statut Modérateur Dernière intervention 24 février 2011 1 793
21 sept. 2006 à 10:47
Salut,

Tu dois pouvoir faire ça avec une macro je pense. (Dans Outils/Macro).

Tu cherches à faire quoi exactement, parce que tu peux aussi scripter outlook de dehors (Python par exemple, mais VBS aussi ... entre autre)
1
fleps Messages postés 4 Date d'inscription mercredi 20 septembre 2006 Statut Membre Dernière intervention 14 mai 2007
21 sept. 2006 à 10:57
En fait je cherche à ouvrir un ticket d'incident dans un HELP DESK avec le sujet et le contenu d'un mail selectionné.

Actuellement je dois fair un copier coller de chaque champs.

à partir d'un batch avec comme parametres le sujet et le texte d'un message, je sais ouvrir un ticket reste à récuperer les parametres dans outlook.

l'idéal serait de pouvoir fair un click droit sur le message pour réaliser cette opération.

Merci

Fleps
0
teebo Messages postés 33491 Date d'inscription jeudi 14 octobre 2004 Statut Modérateur Dernière intervention 24 février 2011 1 793
21 sept. 2006 à 12:30
Sub TestEmail()
    Dim objItem As Object
    Dim thisMail As Outlook.MailItem
    
    Set objItem = Application.ActiveExplorer.Selection(1)
    If Not objItem Is Nothing Then
        If objItem.Class = olMail Then
            Set thisMail = objItem
            Shell ("D:\Test.Bat " & thisMail.Subject & thisMail.To & " > D:\Test.txt")
        End If
    End If
    
    Set objItem = Nothing
    Set thisMail = Nothing
End Sub


Et après tu peux ajouter un bouton dans ta toolbar (en cherchant aussi peut être dans le menu contextuel...)
0
fleps Messages postés 4 Date d'inscription mercredi 20 septembre 2006 Statut Membre Dernière intervention 14 mai 2007
21 sept. 2006 à 15:07
merci, c'est tout a fait ce que je cherchais, toutefois il me reste un petit problème je voudrais remplacer le champs "thisMail.To" par "thisMail.Body" et c'est al que cela se corse car ce champs est text rich et rien ne s'exporte ??

une idée ?

fleps
0
teebo Messages postés 33491 Date d'inscription jeudi 14 octobre 2004 Statut Modérateur Dernière intervention 24 février 2011 1 793
21 sept. 2006 à 16:30
Effectivement, même en string, c'est un truc multi ligne, ça ne passera pas, le mieux est peut être d'utiliser juste le titre et l'expéditeur par exemple pour retrouver le message après dans ton script et là faire ton rapport.
0