[VB6]Envoi de mail

**dimic13** · 14/02/2006, 15h01

Voila je suis jeune...ptetre le plus jeune...

Et je veut apprendre Visual Basic 6.0.
Je connais les truc facile genre textbox/ text / listbox / timer......

Mais je veux réussir que quand j'ouvre le form, je click sur GO et sa envoi le message qui il y avait sur text1...

J'ai lu le tuto mais je n'est rien compris.... Pouvez vous m'expliquer ?

**ouskel'n'or** · 14/02/2006, 15h05

Je connais les truc facile genre textbox/ text / listbox / timer......

T'en sais déjà plus que moi : Par exemple, ton GO, c'est un bouton ?
Si oui, avec quoi et vers où veux-tu envoyer le message

Sinon, tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox MaForm.Text1.text

A+

**dimic13** · 14/02/2006, 15h07

Go est un boutton et je veut me l'envoier a mon adress hotmail !

un mail quoi...

**dimic13** · 14/02/2006, 16h18

Voila le resumé:

Je veux pouvoir envoier le contenu d'un text par mail a mon adress....

**ouskel'n'or** · 14/02/2006, 16h53

J'ai ce code donné sur le forum mais que je n'ai pu tester n'utilisant pas outlook

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
Sub Mail()
 
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
 
On Error Resume Next
 
'Get Outlook if it's running
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
    'Outlook wasn't running, start it from code
    Set oOutlookApp = CreateObject("Outlook.Application")
    bStarted = True
End If
 
'Create a new mailitem
Set oItem = oOutlookApp.CreateItem(olMailItem)
 
With oItem
    'Set the recipient for the new email
   .To = "Le.Mec@lapost.net/"
    'Set the recipient for a copy
    '.CC = "recipient2@mail.com"
    'Set the subject
    .Subject = " "
    'The content of the document is used as the body for the email
    .Body = "Bonjour" & vbCrLf & "Veuillez trouver ci-joint le contrat demandé." & vbCrLf
    .Attachments.Add source:="D:\xls\Moi_Même.xls"
    .Send
End With
 
If bStarted Then
    'If we started Outlook from code, then close it
    oOutlookApp.Quit
End If
 
'Clean up
Set oItem = Nothing
Set oOutlookApp = Nothing
 
End Sub