Interface VBA pour renommer/envoyer fichier

Question

Bonjour


Je souhaiterais mettre en place une interface comme celle ci-joint ( http://imageshack.us/photo/my-images/197/baucheformulairecheckli.png ), qui permettrait de renommer le fichier mis en pièce jointe, en fonction des paramètres rentrés dans les différents champs, de la façon suivante :
Champs N°1_Champs N°2_Catégorie_Date_Nom.pdf


En cliquant sur envoyer, ce fichier serait mis en pièce jointe d'un message à destination d'une adresse mail (réception de tous les fichiers), avec comme titre de message « Retour fichiers», et avec ou sans corps de message. Si aucune connexion internet n'est disponible, le message irait dans la boîte d'envoi.


Pourriez-vous m'aiguiller sur les différentes fonctions utiles, car après plusieurs heures de recherches sur internet, je m'égare entre les userform etc...


Par avance, merci ! ; )


Bonne fin d'après midi.

lermite222 · Answer

Bonjour, 
Renommer un fichier en pièce jointe n'est pas possible, tu doit d'abord le copier sous un autre nom dans un répertoire temporaire par exemple. 
Et éventuellement le supprimer après envoi. 
Pour ça voir CopyFile. 
Pour le supprimer voir Kill
Pour envoyer un mail il y a un tas d'exemple sur la toile. 
A+ 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

lermite222 · Answer

Cependant, comment faire en sorte que les paramètres rentrés dans les champs de ma "fenêtre" soient pris en compte dans le nom du double de mon fichier ?
Je ne comprend pas ce que tu veux dire.

RaiM · Answer

comment faire en sorte que les cases présentées dans mon schéma (sur le premier message), influent sur le nom de mon fichier ?

lermite222 · Answer

L'image que tu montre c'est sur une feuille Excel ?

lermite222 · Answer

Maintenant je pense que c'est ça que tu a besoin..
'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Sub EnvoiMail()
Dim ObjOutlook
Dim oBjMail
   
   Set ObjOutlook = New Outlook.Application
   Set oBjMail = ObjOutlook.CreateItem(olMailItem)
   With oBjMail
        .To = "BoitMail@gmail.com" 'le destinataire
        .Subject = "Ici c'est l'objet, le titre"  'l'objet du mail
        .Body = "Ici le texte du mail "  'le corps du mail ..son contenu
        .Attachments.Add Fichier '"C:	emps\Nomfichier.ppt" ' le chemin + Nomfichier + extention
        .Display 'ont peut supprimer cette ligne pour l'envoyer sans vérification
        .Send
    End With
    
    ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
    
End Sub
Tu remplace les données fictive par tes textbox.
A+

RaiM · Answer

Bonjour,

j'ai pris exemple sur ton code pour modifier quelques variables invalides, telles que:

        appOutLook = New Microsoft.Office.Interop.Outlook.Application 'définition d'appOutLook
        outlookEmail = appOutLook.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem) 'définition d'outlookEmail

Cette partie de mon programme est maintenant parfaitement opérationnelle, il faut juste que je click yes pour l'envoi du message, mais ce n'est qu'un léger détail. Qu'entends-tu par utiliser des textbox ? Faire apparaître des box une à une pour rentrer les détails d'envoi ?

merci de ton aide ;)
Bonne journée !

Interface VBA pour renommer/envoyer fichier

6 réponses

Discussions similaires

Newsletters