[OUTLOOK] lancer un batch externe
fleps
Messages postés
4
Statut
Membre
-
teebo Messages postés 33570 Statut Modérateur -
teebo Messages postés 33570 Statut Modérateur -
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
- Lancer une application au démarrage windows 10 - Guide
- Synchroniser agenda google et outlook - 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...)
