[VB6] attacher un pièce jointe à un email via VB

Version imprimable

15/07/2004, 18h36
bytedigger

[VB6] attacher un pièce jointe à un email via VB

Bonjour à tous,

je souhaite savoir s'il y a un bout de code quelque part qui explique comment attacher une pièce joint à un mail a partir de VB.

Nota: ch'ais grace a ce forum comment lancer des emails avec VB

Merci de votre aide :D
15/07/2004, 18h38
grafikm_fr

Re: attacher un pièce jointe à un email via VB

Citation:

Envoyé par bytedigger

je souhaite savoir s'il y a un bout de code quelque part qui explique comment attacher une pièce joint à un mail a partir de VB.

Les attacher avec quoi? Outlook? Notes? Directement? Avec SMTP?
Sois plus précis stp... :wink:
15/07/2004, 18h51
bytedigger

Bonjour grafikm_fr et merci
En fait ma question est valable d'une manière générale, cependant le mode "directement" si pas de messagerie (si possible) :o

merci

Salut, moi j'ai deja utiliser le controle MAPI et ca marche pas mal je te met le bout de code corresponant pour que tu vois comment ca marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Dim User As String
Dim Pass As String
Dim Mail As String
 
User = Text1.Text
Pass = Text2.Text
Mail = Text3.Text
MAPISession1.NewSession = True
MAPISession1.DownLoadMail = False
MAPISession1.UserName = User
MAPISession1.Password = Pass
MAPISession1.SignOn
MAPIMessages1.MsgIndex = -1
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.RecipDisplayName = Mail               'Destinataire
MAPIMessages1.MsgSubject = "Un petit bonjour"       'Objet
MAPIMessages1.MsgNoteText = "Salut."                'Texte
MAPIMessages1.AttachmentPathName  "c:\Temp\"& "fichiertest.txt"    
'pièce jointe
MAPIMessages1.Send
MAPISession1.SignOff

bye bye

16/07/2004, 09h35
bytedigger

Merci bcp à tous...a tchao :D