Visual Basic 6 - Mail da vb

ciao a tutti...spero che qualcuno possa aiutarmi... come posso fare per aprire un nuovo messaggio da outlook tramite una cmd?mi spiego meglio..ho una textbox in cui c'è un indirizzo, io cliccando su un bottone nella form devo far sì che si apra un nuovo messaggio di outlook con destinatario quell'indirizzo...help assssie XD

per inviare mail non c'è bisogno di outlook basta che da visual basic usi il protocollo smtp...
eccoti un esempio cmq di interazione tra visual basic e outlook..
itportal.it/developer/vb/browser_40/…
ciao ciao

non è proprio quello ke mi serve..mi spiego meglio, sto creando un gestionale x una ditta, con visualizzazione dei contatti...il cliente mi ha chiesto di poter mandare una mail tramite outlook, ma in quel modo, cioè cliccando su una command all'interno del programma, che va a leggere la mail da una textbox....

Questo è il codice che ti serve!!!!
text1.text è dove c'è il destinatario

CODICE DA INSERIRE IN UN BOTTONE

Dim email As String
    email = "mailto:" & text1.text & "?subject=Re"
    ShellExecute Me.hwnd, vbNullString, email, vbNullString, vbNullString, SW_MAXIMIZED

CODICE DA INSERIRE NELLE DICHIARAZIONI

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Se utilizzi la funzione shell di visual basic non ti funziona, devi perforza utilizzare questo medoto.
Vedi che il codice comprende anche un'ogetto che se non serve può essere cancellato.
Fammi sapere, buon utilizzo
Ciao

ho risolto cmq XD grazie lo stesso...già ke ci sn posto qui il codice così se avete bisogno già lo trovate

'Funzione per mandare le mail
Public Sub send_email_to(emailaddress As String)
Dim jmpEmail 'creo oggetto per mandare la mail
If Valid_Email_Address(emailaddress) Then 'richiamo la funzione per la verifica
jmpEmail = Shell("cmd /c start mailto:" & emailaddress, vbNormalFocus) 'quindi apro l'oggetto mail
Else 'se non è un indirizzo valido
MsgBox "Non è un indirizzo valido di posta!", vbExclamation + vbOKOnly, "Errore" 'mostro un messaggio d'errore
End If
End Sub


'Comando per spedire una mail
Private Sub cmd_sendmail_Click()
Dim wacciuwa As String 'creo una stringa temporanea
wacciuwa = txt_mail.Text 'a cui assegno il valore dell'indirizzo
send_email_to (wacciuwa) 'chiamo la funzione per mandare la mail all'indirizzo voluto
End Sub

'Funzione per verificare se un indirizzo email è valido o meno
Public Function Valid_Email_Address(emailaddress As String) As Boolean
Valid_Email_Address = emailaddress Like "*@[A-Z,a-z,0,9]*.*"
End Function


spero sia chiaro...altrimenti...postate e chiedete lol XD