[VB6]Envoi de mail

Version imprimable

14/02/2006, 15h01
dimic13

[VB6]Envoi de mail

:P 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 ? :roll:
14/02/2006, 15h05
ouskel'n'or

Citation:

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:

msgbox MaForm.Text1.text

A+
14/02/2006, 15h07
dimic13

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

un mail quoi...
14/02/2006, 16h18
dimic13

Voila le resumé:

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

:P :P

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

Code:

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

Si tu peux t'en sortir avec ça, ça m'intéresse, donc tu dis
Si tu as des difficultés avec les commentaires, tu dis aussi :wink:

Bon courage

A+

14/02/2006, 16h55
dimic13

OK merci...j'vais essayer je te tien au courant !! :wink: :cdrom:
14/02/2006, 18h35
dimic13

j'arrive pas a le faire marché :?
14/02/2006, 18h37
SfJ5Rpw8

et c'est quoi tes problémes ...?

tu utilise bien outlook ( et pas Outlook Express) ... sur ta machine ?
14/02/2006, 18h47
dimic13

en faite j'utilise pas outlook !!!
en faite j'ai express mais je veut le recevoir sur HOTMAIL
14/02/2006, 21h01
SfJ5Rpw8

tu as essayer l'un des 2 codes de la FAQ
http://vb.developpez.com/faq/?page=Reseau#email :?: