Retranscrire le contenu d'une textbox
Bonsoir,
débutante en visual basic 6, je parviens à me débrouiller seule mais je ne sais toujours pas comment récupérer le contenu d'une textbox... :oops:
Je m'explique, j'ai créer une textbox dans laquelle je saisie un texte.
EX : dans ma textbox : text1.txt ====> je saisie : Julie
A l'aide d'un commandbutton j'appelle une fonction : ex : "Call mail" pour envoyer un mail
Je souhaite récupérer le texte saisie dans ma textbox et la retranscrire dans le contenu de mon mail comme ci-dessous, voir ligne 18
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Function mail() As Boolean
Dim oCDO
Set oCDO = CreateObject("CDO.Message")
With oCDO
With .Configuration.Fields ' Configuration "du compte mail SMTP"
.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxx.smtp.com"
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxx@xxx.com"
.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxxxxxx"
'----------------
.Update
End With
.From = "xxxxxxx"
.To = "xxxxx@xxxxx"
.TextBody = "Coucou JULIE"
.Send
End With
End Function |
merci