Ho provato con l'iserimento dei caratteri ASCII, ma nulla .
Cmq x farvi capire meglio ecco il codice:
Private 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
Private Sub invia_Click()
Dim testo As String
testo = "" & nome & " "
testo = testo + "" & problema.Text
Call MailTo(assistenza, nome, testo)
End Sub
Private Sub MailTo(frm As Form, Address As String, stext As String)
Call ShellExecute(frm.hwnd, vbNullString, "mailto:
pippo@pippo.it" & "?subject= Assistenza Tecnica" & "&body=" & stext, vbNullString, vbNullString, 1)
End Sub
Indicazioni sul form :
Dove
assistenza è il nome del form
nome è il nome del primo textbox ,
problema del secondo , quest' ultimo ha multiline = true e scrollbars = 2- vertical
invia è il tasto che fà partire il programma di posta elettronica
Per implementare il seguente codice ho utilizzato VB 5
Se eseguite il codice vi renderete conto del problema
Adesso credo che dovrebbe essere chiaro a tutti!