Visual Basic 6 - shell32.dll

Ciao ragazzi,
premessa , son nuovo del posto e complimenti al medesimo

Quindi , piccolo problema , ho letto altri topic sullo stesso forum in passato ma non sono riuscito a trovare cio che davvero mi serviva, anche se ci sono arrivato vicino ma, non riesco ad andare oltre, ho pensato bene di aprir un topic nuovo perche quelli che ho visto erano abbastanza datati, dunque, torniamo a noi ,

Ho la necessita di aprire un finestra di posta elettronica (la classica finestra per inviare una mail con il programma di posta predefinito installato nel pc) ove impostare alcuni dati e parametri da visual basic : funziona tutto:

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

'ed inseguito al clik del bottone 
email = "mailto:" & "campovuoto" & "?subject=IL SOGGETTO DEVE ESSERE DETERMINATO DA UNA VARIABILE CHE CAMBIA DURANTE IL PROBRAMMA&cc=CAMPO VUOTO&Reply-To=CAMPO VUOTO&body=CAMPO DETERMINATO DA UNA VARIABILE......" ', "", "", 1

'E POI INFINE 
ShellExecute Me.hwnd, vbNullString, EMAIL, vbNullString, vbNullString, SW_MAXIMIZED

come dicevo : funziona tutto ma non riesco a far apparire le stringhe necessarie determinate dal programma nel corso delle selezioni : esempio pratico

Dim miaVar as string 
miaVar = "stringa"  
email = "mailto:" & "campovuoto" & "?subject=testo & miaVar&cc=CAMPO VUOTO&Reply-To=CAMPO VUOTO&body=CAMPO DETERMINATO DA UNA VARIABILE......" ', "", "", 1

Quando apre la finestra del programma di posta predefinito nel campo Soggetto vedo scritto solo in questo caso ''testo'', il contenuto della mia variabile non appare , qual'é la sintassi esatta per inserire il contenuto della variabile in questa stringa?

Grazie in anticipo

prova così

email = "mailto:" & "campovuoto" & "?subject=testo" & miaVar & "cc=CAMPO VUOTO&Reply-To=CAMPO VUOTO&body=CAMPO DETERMINATO DA UNA VARIABILE......" ', "", "", 1

Non funziona, ci avevo già provato in un modo analogo...

ma che errore ti da?

Nessun errore, la finestra del programma di posta si apre tranquillamente, il problema é che nel campo - "?subject=testo" & miaVar - quando apre la finestra del programma di posta nel campo ''oggetto del messaggio'' mi appare solo la scritta testo e non il contenuto della variabile, comunque, stavo leggendo qualcosa su google con l'istruzione space$ ... chissà ... comunque quando risolvo faccio sapere, almeno qualcun'altro non imbatte in questo problema ... grazie

Ho risolto : avevi ragione tu , grazie !!!!

mmm allora, funziona ed é tutto ok, ma... per completare bene l'operazione :

dim altramiaVar as string 
altramiaVar = text_x.text 'Multiline = true

email = "mailto:" & "campovuoto" & "?subject=testo" & miaVar & "cc=CAMPO VUOTO&Reply-To=CAMPO VUOTO&body=CAMPO DETERMINATO DA UNA VARIABILE......" ', "", "", 1 

Problema : non mi va' a capo quando dovrebbe , ho provato a inserire il . alla fine di ogni frase che viene fatta tramite varie opzioni in questa text box , ho creato un ciclo nel quale cerca il puntino lo sostituisce con <br> oppure vbCrLf ma quando poi passo il tutto a : "&body=" & bodytesto il testo nel corpo del messaggio é tutto su una linea .

Scrivo anche il ciclo per far capire meglio :

dim altramiaVar as string
altramiaVar = text_x.text
If InStr(altramiaVar, ".") <> 0 Then
bodytesto = Replace(altramiaVar, ".", vbCrLf)'oppure <br>, ma scritto cosi genera errore , in questo altro modo :"<br>" me lo visualizza come testo 
End If

P.S. non so se devo aprire un'altro topic oppure , si può continuare su questo (dato che l'argomento é un'altro ma annesso a quello di prima )

Di quale ciclo parli ? Non ci sono cicli ...

Comunque, devi usare la riga

bodytesto = Replace(altramiaVar, ".", "%0A"