J'ai une demande sur outlook. Nous recevons un mail tous les jours du meme
expéditeur accompagné d'une piece jointe. Aujourd'hui, l'enregistrement et le
renommage de cette pièce jointe est manuel. Je dois l'automatiser.
Est il possible avec vbscript de réaliser cette tache ?? Et si oui comment ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Oliv'
berthelagrandepatte que je
Bonjour
J'ai une demande sur outlook. Nous recevons un mail tous les jours du meme expéditeur accompagné d'une piece jointe. Aujourd'hui, l'enregistrement et le renommage de cette pièce jointe est manuel. Je dois l'automatiser. Est il possible avec vbscript de réaliser cette tache ?? Et si oui comment ?
Merci beaucoup
avec un truc comme cela dans les macros VBA OUTLOOK (ALT+F11) à adapter bien sûr l'execution est manuelle !
Sub FichiersJoints() 'Map toolbar button to this macro ' création OLIVIER CATTTEAU 2005
On Error Resume Next Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems If Application.ActiveInspector.CurrentItem.Attachments.Count = 0 Then MsgBox "Pas de fichiers joints" GoTo fin End If
'parcours des fichiers attachés ################################################################################ Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints ################################################### For Each objAtt In objAtts 'c est la que tu mets le nouveau nom et /ou les conditions repertoire = "c:temp" Fichier = objAtt.FileName 'donne le meme nom que la pieces jointe
objAtt.SaveAsFile repertoire & Fichier Next objAtt ''' Clean up everything. On Error Resume Next
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook :http://faq.outlook.free.fr/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
berthelagrandepatte <berthelagrandepatte@discussions.microsoft.com> que je
Bonjour
J'ai une demande sur outlook. Nous recevons un mail tous les jours du
meme expéditeur accompagné d'une piece jointe. Aujourd'hui,
l'enregistrement et le renommage de cette pièce jointe est manuel. Je
dois l'automatiser.
Est il possible avec vbscript de réaliser cette tache ?? Et si oui
comment ?
Merci beaucoup
avec un truc comme cela dans les macros VBA OUTLOOK (ALT+F11) à adapter bien
sûr
l'execution est manuelle !
Sub FichiersJoints()
'Map toolbar button to this macro
' création OLIVIER CATTTEAU 2005
On Error Resume Next
Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems
If Application.ActiveInspector.CurrentItem.Attachments.Count = 0 Then
MsgBox "Pas de fichiers joints"
GoTo fin
End If
'parcours des fichiers attachés
################################################################################
Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem
Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints
###################################################
For Each objAtt In objAtts
'c est la que tu mets le nouveau nom et /ou les conditions
repertoire = "c:temp"
Fichier = objAtt.FileName 'donne le meme nom que la pieces jointe
objAtt.SaveAsFile repertoire & Fichier
Next objAtt
''' Clean up everything.
On Error Resume Next
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
J'ai une demande sur outlook. Nous recevons un mail tous les jours du meme expéditeur accompagné d'une piece jointe. Aujourd'hui, l'enregistrement et le renommage de cette pièce jointe est manuel. Je dois l'automatiser. Est il possible avec vbscript de réaliser cette tache ?? Et si oui comment ?
Merci beaucoup
avec un truc comme cela dans les macros VBA OUTLOOK (ALT+F11) à adapter bien sûr l'execution est manuelle !
Sub FichiersJoints() 'Map toolbar button to this macro ' création OLIVIER CATTTEAU 2005
On Error Resume Next Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems If Application.ActiveInspector.CurrentItem.Attachments.Count = 0 Then MsgBox "Pas de fichiers joints" GoTo fin End If
'parcours des fichiers attachés ################################################################################ Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints ################################################### For Each objAtt In objAtts 'c est la que tu mets le nouveau nom et /ou les conditions repertoire = "c:temp" Fichier = objAtt.FileName 'donne le meme nom que la pieces jointe
objAtt.SaveAsFile repertoire & Fichier Next objAtt ''' Clean up everything. On Error Resume Next
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook :http://faq.outlook.free.fr/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
