OVH Cloud OVH Cloud

Envoie piéce jointe

1 réponse
Avatar
Dan
Bonjour.
Coment envoyer un fichier depuis le contenu d'un objet image ou picture.
je ne veux pas etre obligé de le sauvegarder avant sur le DD

voici le code que j'utilise pour le moment.
la variable envoie contient le chemin des différents fichiers jpg separés
par un ";".
d'avance merci de votre aide
**************************
Private Sub OUTLOOK_Click()
'On vérifie la présence du sujet
txtSujet = "Voici une photode du " & Left(Form3.Label1.Caption, 10) & " "
& Form3.Label2.Caption
Destinataire = "toto@ifrance.com"

'On récupere le fichier lié au message
TxtLien = Right(envoi, Len(envoi) - 1)
Piecejointe = TxtLien
'**********************
Dim x
' Lance Outlook express avec l'adresse , l'objet et le message
x = Shell("C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Destinataire & "?subject=" & _
Sujet & "&body=" & txtSujet, 3)


If envoi <> "" Then
bbb = Split(envoi, ";")
For i = 0 To (UBound(bbb, 1))
' Pour faire Insertion pièce jointe
SendKeys "%I{ENTER}", False
' Pour indiquer le nom du fichier à joindre
SendKeys bbb(i) & "{ENTER}", False
'SendKeys Form7.picture1(i) & "{ENTER}", False
Next i
End If

1 réponse

Avatar
Jacques93
Dan a écrit :
Bonjour.
Coment envoyer un fichier depuis le contenu d'un objet image ou picture.
je ne veux pas etre obligé de le sauvegarder avant sur le DD




Pour envoyer une pièce jointe (images, sons, documents divers...), qui
sont des fichiers binaires, il faut utiliser l'encodage MIME
(Multipurpose Internet Mail Extensions), une piste ici :

http://www.iprelax.fr/mime/mime_descr.php

et les RFC 2045 à 2049, pour commencer :

http://www.mhonarc.org/~ehood/MIME/


--
Cordialement,

Jacques.