Visual Basic 6 - Mail da vb

Forum - Visual Basic 6 - Mail da vb

DarkKnight (Normal User)
Newbie

Messaggi: 18
Iscritto: 23/10/2006

Postato alle 10:12
Lunedì, 23/10/2006

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

Fr3d3R!K (Ex-Member)
Expert

Messaggi: 589
Iscritto: 17/08/2006

Postato alle 15:30
Lunedì, 23/10/2006

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..
http://www.itportal.it/developer/vb/browser_40/pagina6.asp
ciao ciao

DarkKnight (Normal User)
Newbie

Messaggi: 18
Iscritto: 23/10/2006

Postato alle 15:52
Lunedì, 23/10/2006

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....

natamas (Member)
Pro

Messaggi: 115
Iscritto: 09/04/2006

Postato alle 18:23
Martedì, 24/10/2006

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

CODICE DA INSERIRE IN UN BOTTONE

Codice sorgente - presumibilmente Visual Basic 6

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

CODICE DA INSERIRE NELLE DICHIARAZIONI

Codice sorgente - presumibilmente VB.NET

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 :k:

Ultima modifica effettuata da natamas il 24/10/2006 alle 18:27

DarkKnight (Normal User)
Newbie

Messaggi: 18
Iscritto: 23/10/2006

Postato alle 11:37
Mercoledì, 25/10/2006

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

'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