application qui scanne un document et l'envoie par mail

application qui scanne un document et l'envoie par mail - VB/VBA/VBS - Programmation

Marsh Posté le 23-06-2006 à 11:16:15    

Bonjour à tous,
Dans le cadre de mon stage, je suis chargé de réaliser une application permettant de scanner un document et ensuite de l'envoyer par mail en pièce jointe.
J'arrive a scanner sans problème et à afficher le document dans une picturebox mais je ne parviens pas à sauvegarder ce document sur le disque dur dans le but de l'envoyer par mail ensuite. Ce n'est pas l'envoi du mail qui me pose problème mais la sauvegarde du document sur le disque.
Quelq'un pourrait-il m'éclairer?  :hello:

Reply

Marsh Posté le 23-06-2006 à 11:16:15   

Reply

Marsh Posté le 23-06-2006 à 11:33:16    

si tu sais gérer l'envoi de mail par la simulation d'appui de touches, tu peux utiliser le commondialog pour enregistrer ton image, il me semble, si quelqu'un peut confirmer.

Reply

Marsh Posté le 23-06-2006 à 13:55:20    

Voir Aide en ligne sur SavePicture
et adapter http://www.freevbcode.com/ShowCode.Asp?ID=109  
pour envoi mail+piege jointe


Message édité par kiki29 le 23-06-2006 à 14:03:15
Reply

Marsh Posté le 23-06-2006 à 16:01:08    

jpcheck a écrit :

si tu sais gérer l'envoi de mail par la simulation d'appui de touches, tu peux utiliser le commondialog pour enregistrer ton image, il me semble, si quelqu'un peut confirmer.


Qu'est-ce que tu entends par simulation d'appui de touches?  :heink:

Reply

Marsh Posté le 23-06-2006 à 16:07:45    

Jordan59100 a écrit :

Qu'est-ce que tu entends par simulation d'appui de touches?  :heink:


pardon, il s'agit là des sendkeys

Reply

Marsh Posté le 23-06-2006 à 16:16:18    

Merci de t'intéresser à mon problème mais pourrais-tu m'en dire un peu plus?

Reply

Marsh Posté le 23-06-2006 à 16:50:50    

afin de gérer l'envoi automatique d'un mail (je n'ai pas à proximité le code en question, mais sur mon ordi chez moi), tu peux simuler des appuis de touches par la fonction sendkey. Cete fonction de permet de faire un envoi de mail rien qu'en raccourci clavier (ctrl N, Ctrl I, etc.) et tu peux depuis ta macro VB remplir le corps de ton mail automatiquement.
si cette méthode t'intéresse, sois patient, et je te filerai ce dont je parle durant le week end =) :sol:

Reply

Marsh Posté le 23-06-2006 à 20:16:00    

Ah oui, ce serait sympa de ta part :)

Reply

Marsh Posté le 23-06-2006 à 23:13:29    

Jordan59100 a écrit :

Ah oui, ce serait sympa de ta part :)


avec une liste d'adresse mail dans la colonne A

Code :
  1. Private Sub CommandButton1_Click()
  2. Dim Dest, Sujt, Msg As String
  3. Dim RepName
  4. RepName = "chemin_de_la_piece_jointe"
  5. For i = 1 to 10
  6. Dest = range("A"&i).Value
  7. Dest = "adresse mail du destinataire"
  8. Sujt = "sujet_du_mail"
  9. Msg = "corps_du_mail"
  10. Shell "C:\Program Files\Outlook Express\msimn.exe " & _
  11. "/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
  12. SendKeys "%I" & "p" & RepName & "~" & "%s"
  13. Next i
  14. 'ActiveWorkbook.Close
  15. End Sub


enjoy

Reply

Marsh Posté le 26-06-2006 à 08:53:43    

Merci beaucoup mais par contre si la boîte mail n'est pas ouverte, le programme va planter, non?

Reply

Marsh Posté le 26-06-2006 à 08:53:43   

Reply

Marsh Posté le 26-06-2006 à 09:22:39    

Jordan59100 a écrit :

Merci beaucoup mais par contre si la boîte mail n'est pas ouverte, le programme va planter, non?


il n'y a pas de raison, la commande shell t'ouvre outlook express. Si jamais tu utilises thunderbird les sendkeys seront différents (commandes clavier différentes). ENfin si tu utilises outlook tout court, le nom de programme à lancer sera différent, mais à ma connaissance, les sendkeys seront les mêmes.
de rien :jap:

Reply

Marsh Posté le 26-06-2006 à 10:20:13    

Oui mais, si la boîte mail n'est pas ouverte, il y aura le mot de passe à saisir

Reply

Marsh Posté le 26-06-2006 à 10:31:47    

Jordan59100 a écrit :

Oui mais, si la boîte mail n'est pas ouverte, il y aura le mot de passe à saisir


pour le mot de passe, je n'y ai pas pensé car il me semblait logique qu'ils soient automatisés =)
je n'ai pas d'idée sur les paramètres à envoyer à ce moment là pour entre le mdp...

Reply

Marsh Posté le 26-06-2006 à 13:08:30    

de plus sur les forums US apparemment la venue de Vista sonnera le glas des SendKeys sauf via des modules externes payants

Reply

Marsh Posté le 26-06-2006 à 13:59:29    

Sacré bilou

Reply

Marsh Posté le 26-06-2006 à 14:00:09    

kiki29 a écrit :

de plus sur les forums US apparemment la venue de Vista sonnera le glas des SendKeys sauf via des modules externes payants


faute de mieux d'ici là les sendkeys me conviennent :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed