Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    février 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2013
    Messages : 42
    Points : 18
    Points
    18

    Par défaut Découper fichiers et envoi par email en ligne de commande ?

    Salut a tous,

    J'ai dans un dossier plusieurs vidéos (7GO) et j'aimerais découper toutes ces vidéos les unes après les autres en plusieurs fichiers de 25MB et envoyer ces fichiers de 25MB les une après les autres par mail et tout cela en ligne de commande (vbs ou autres)

    Après vous c'est faisable ?

    Merci

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 271
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 271
    Points : 5 380
    Points
    5 380

    Par défaut

    Pour commencer, essaie avec cette Contribution.
    Pour le découpage, tu peux utiliser Winrar par exemple tout en spécifiant(en tapant) la taille de sortie en octets(liste déroulante tout en bas intitulée Taille des volumes). Ne pas oublier de cocher la case Créer une archive SFX
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    février 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2013
    Messages : 42
    Points : 18
    Points
    18

    Par défaut

    Merci je regarde ça..

  4. #4
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 271
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 271
    Points : 5 380
    Points
    5 380

    Par défaut

    Le découpage(et compression) peut se faire auto :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    Option Explicit 
     
    Const CheminRar = "H:\Winrar\Rar.exe"  ' Adapter ce chemin
    Dim fso, oFold, WS, SourceFolder, Fichier, Commande
    Dim oArgs, DestFolder, FileName, ArchiveName 
     
    Set oArgs = WScript.Arguments
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set WS  = CreateObject("Wscript.Shell") 
     
    If oArgs.Count = 0 Then
        SourceFolder = "C:\tmp\"  ' Adapter le chemin
    Else 
        SourceFolder = oArgs(0) & "\"
    End If
     
    Set oFold = fso.GetFolder(SourceFolder)
    DestFolder = "C:\Temp\"  ' Adapter le chemin
     
    For Each Fichier In oFold.Files
      FileName = Fichier.Name
      ArchiveName = fso.GetBaseName(FileName)
      ' Ligne de commande pour le découpage :
      Commande = "CMD.EXE /C " & CheminRar & " a -v10m -sfx " & DestFolder & ArchiveName & " " & SourceFolder & FileName
      ' CheminRar : Chemin complet pour Rar.exe(programme console)
      ' a : ajoute les fichiers à l'archive en cours
      ' -v10m : Crée des volumes de 10 Mo, on peut alors le remplacer par -v25m pour avoir 25 Mo
      ' -sfx : Crée une archive autoextractible, pas besoin de mettre l'extension
      ' DestFolder : Dossier cible, ArchiveName : nom du fichier archive
      ' SourceFolder : Dossier source des fichiers à découper(compresser)
      ' FileName : Nom du fichier à ajouter  
      WS.Run Commande, 1, True 
    Next
    Pour ne pas avoir à taper à chaque fois le chemin des fichiers à découper, il suffit d'enregistrer ce code sous le nom Decoupe.vbs par exemple puis faire Glisser / Déposer le dossier source sur le fichier vbs qu'on vient de créer, autrement le dossier par défaut sera "C:\Tmp\" ou son équivalent si on l'a modifié.
    Une fois l'opération de découpage commencée, on ne peut pas arrêter le processus sauf si, dans le gestionnaire des tâches, on arrête WScript.exe; mais l'opération en cours continuera jusqu'à la fin du fichier en cours de découpage.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  5. #5
    Membre à l'essai
    Profil pro
    Inscrit en
    février 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2013
    Messages : 42
    Points : 18
    Points
    18

    Par défaut

    Merci beaucoup

    J'ai fais les modifs nécessaires mais rien ne se passe..

    Une idée ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    Option Explicit 
     
    Const CheminRar = "C:\Program Files (x86)\WinRAR\WinRAR.exe"  ' Adapter ce chemin
    Dim fso, oFold, WS, SourceFolder, Fichier, Commande
    Dim oArgs, DestFolder, FileName, ArchiveName 
     
    Set oArgs = WScript.Arguments
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set WS  = CreateObject("Wscript.Shell") 
     
    If oArgs.Count = 0 Then
        SourceFolder = "C:\Users\Silvain\Desktop\tmp\"  ' Adapter le chemin
    Else 
        SourceFolder = oArgs(0) & "\"
    End If
     
    Set oFold = fso.GetFolder(SourceFolder)
    DestFolder = "C:\Users\Silvain\Desktop\Temp\"  ' Adapter le chemin
     
    For Each Fichier In oFold.Files
      FileName = Fichier.Name
      ArchiveName = fso.GetBaseName(FileName)
      ' Ligne de commande pour le découpage :
      Commande = "CMD.EXE /C " & CheminRar & " a -v10m -sfx " & DestFolder & ArchiveName & " " & SourceFolder & FileName
      ' CheminRar : Chemin complet pour Rar.exe(programme console)
      ' a : ajoute les fichiers à l'archive en cours
      ' -v25m : Crée des volumes de 10 Mo, on peut alors le remplacer par -v25m pour avoir 25 Mo
      ' -sfx : Crée une archive autoextractible, pas besoin de mettre l'extension
      ' DestFolder : Dossier cible, ArchiveName : nom du fichier archive
      ' SourceFolder : Dossier source des fichiers à découper(compresser)
      ' FileName : Nom du fichier à ajouter  
      WS.Run Commande, 1, True 
    Next

  6. #6
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 271
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 271
    Points : 5 380
    Points
    5 380

    Par défaut

    J'ai fais les modifs nécessaires mais rien ne se passe..
    Bien sûr, car la constante n'est pas la bonne. Il fallait mettre :
    Const CheminRar = "C:\Program Files (x86)\WinRAR\RAR.exe".
    Il faut avoir Rar.exe (programme console) et non Winrar.exe, programme Win 32 ou 64.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  7. #7
    Membre à l'essai
    Profil pro
    Inscrit en
    février 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2013
    Messages : 42
    Points : 18
    Points
    18

    Par défaut

    Merci, j'ai essayé mais rien ne se passe..
    J'ai mis les vidéos a découpé dans le dossier "tmp" qui se trouve sur mon bureau, et après avoir lancer le vbs les vidéos ne sont pas découper dans le dossier de destination "Temp" (sur le bureau)

  8. #8
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 271
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 271
    Points : 5 380
    Points
    5 380

    Par défaut

    C'est fort possible à cause des espaces dans le chemin de Rar.exe.

    pour cela, on va faire autrement : On déclare CheminRar comme étant une variable qu'on modifiera par la suite
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    Option Explicit 
     
    Dim CheminRar 
    Dim fso, oFold, WS, SourceFolder, Fichier, Commande
    Dim oArgs, DestFolder, FileName, ArchiveName 
     
    Set oArgs = WScript.Arguments
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set WS  = CreateObject("Wscript.Shell") 
     
    CheminRar = fso.GetFile("C:\Program Files (x86)\WinRAR\RAR.exe").ShortPath
     
    If oArgs.Count = 0 Then
        SourceFolder = "C:\Users\Silvain\Desktop\tmp\" 
    Else 
        SourceFolder = oArgs(0) & "\"
    End If
     
    Set oFold = fso.GetFolder(SourceFolder)
    DestFolder = "C:\Users\Silvain\Desktop\Temp\"
     
    For Each Fichier In oFold.Files
      FileName = Fichier.Name
      ArchiveName = fso.GetBaseName(FileName)
      ' Ligne de commande pour le découpage :
      Commande = "CMD.EXE /C " & CheminRar & " a -v10m -sfx " & DestFolder & ArchiveName & " " & SourceFolder & FileName
      ' CheminRar : Chemin complet pour Rar.exe(programme console)
      ' a : ajoute les fichiers à l'archive en cours
      ' -v10m : Crée des volumes de 10 Mo, on peut alors le remplacer par -v25m pour avoir 25 Mo
      ' -sfx : Crée une archive autoextractible, pas besoin de mettre l'extension
      ' DestFolder : Dossier cible, ArchiveName : nom du fivhier archive
      ' SourceFolder : Dossier source des fichiers à découper(compresser)
      ' FileName : Nom du fichier à ajouter  
      WS.Run Commande, 1, True 
    Next
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  9. #9
    Membre à l'essai
    Profil pro
    Inscrit en
    février 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2013
    Messages : 42
    Points : 18
    Points
    18

    Par défaut

    Désolé du retard.. ça fonctionne parfaitement..merci..

    J'utilise ce code pour envoyer un email, savez vous comment je pourrais faire pour joindre ces fichiers découper (25mo) un après l'autre ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
     
    On Error Resume Next
    Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
    Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 
    Const cdoAnonymous = 0 'Do not authenticate
    Const cdoBasic = 1 'basic (clear-text) authentication
    Const cdoNTLM = 2 'NTLM
    sFilePath="C:\fichier-découper.rar" 'Path of the Attached File
    Set objMessage = CreateObject("CDO.Message") 
    objMessage.Subject = "Downloads.." 
    objMessage.From = """Me"" <Mymail@gmail.com>" 'change this to yours
    objMessage.To = "aaaaaaaa@gmail.com" 'change this To
    objMessage.AddAttachment sFilePath   
    '==This section provides the configuration information for the remote SMTP server.
     
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
     
    'Name or IP of Remote SMTP Server
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'SMTP SERVER of GMAIL must be inchanged
     
    'Type of authentication, NONE, Basic (Base64 encoded), NTLM
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
     
    'Your UserID on the SMTP server
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "aaaaaaa@gmail.com" 'change this to yours
     
    'Your password on the SMTP server
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "0000000" 'change this to yours
     
    'Server port (typically 25 and 465 in SSL mode for Gmail)
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'don't change this
     
    'Use SSL for the connection (False or True)
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
     
    'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
     
    objMessage.Configuration.Fields.Update
     
    '==End remote SMTP server configuration section==
     
    objMessage.Send
     
    If Err.Number <>0 Then
    			MsgBox Err.Description,16,"Erreur"
    			msgbox "le mail n'a pas pu être envoyé !",16,"Information"
    		Else
     
    	End If
    		On Error GoTo 0

  10. #10
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 271
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 271
    Points : 5 380
    Points
    5 380

    Par défaut

    Avant la ligne 51, ajoute objMessage.AddAttachment MyFile avec MyFile : le chemin complet vers le fichier à joindre.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  11. #11
    Membre à l'essai
    Profil pro
    Inscrit en
    février 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2013
    Messages : 42
    Points : 18
    Points
    18

    Par défaut

    il est pas déjà a la ligne 8 ?

  12. #12
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 271
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 271
    Points : 5 380
    Points
    5 380

    Par défaut

    Désolé, je l'ai pas vu
    En exécutant le script, y a-t-il un message d'erreur ? Le corps du texte est-il correctement envoyé ?
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  13. #13
    Membre à l'essai
    Profil pro
    Inscrit en
    février 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2013
    Messages : 42
    Points : 18
    Points
    18

    Par défaut

    Salut, Je l'ai pas utiliser depuis un bon moment et effectivement il y a une erreur..

    Nom : erreur.PNG
Affichages : 14
Taille : 8,3 Ko

  14. #14
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 271
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 271
    Points : 5 380
    Points
    5 380

    Par défaut

    Il y a deux possibilités(si ce n'est pas plus) pour le problème qui se pose :
    La taille du fichier à envoyer est trop grande ou bien
    La configuration du serveur n'est la bonne.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  15. #15
    Membre à l'essai
    Profil pro
    Inscrit en
    février 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2013
    Messages : 42
    Points : 18
    Points
    18

    Par défaut

    Ok merci, je vais me creusé la tête

Discussions similaires

  1. [iPad] Création fichier texte et envoi par email
    Par valdroc1404 dans le forum Objective-C
    Réponses: 3
    Dernier message: 28/07/2013, 00h06
  2. Fusion de 4 tables oracle en un fichier Excel et Envoi par email
    Par karnass dans le forum Développement de jobs
    Réponses: 5
    Dernier message: 18/12/2012, 10h11
  3. [Upload] upload de fichier pour envoi par mail
    Par mdr_cedrick dans le forum Fichiers
    Réponses: 2
    Dernier message: 26/05/2009, 08h56
  4. Renommer un fichier avant envoi par Mail
    Par mumuludo dans le forum VBA Access
    Réponses: 2
    Dernier message: 02/01/2008, 17h01
  5. [Mail] Envoi par email du résultat : problème de champs
    Par antbilly dans le forum Fonctions
    Réponses: 2
    Dernier message: 04/02/2007, 06h06

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo