[OUTLOOK] lancer un batch externe
fleps
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
teebo Messages postés 33491 Date d'inscription Statut Modérateur Dernière intervention -
teebo Messages postés 33491 Date d'inscription Statut Modérateur Dernière intervention -
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
comment proceder ??
merci
A voir également:
- [OUTLOOK] lancer un batch externe
- Chkdsk disque dur externe - Guide
- Fichier batch - Guide
- Synchroniser agenda google et outlook - Guide
- Lancer une application au démarrage windows 10 - Guide
- Créer un compte outlook gratuit - Guide
3 réponses
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)
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)
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
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
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...)
