PDA

Visualizza la versione completa : [VB] URGENTE Shellexecute per email problema


zampa28
06-07-2002, 20:12
Con Shellexecute invio questo messaggio (ricavato da una RichTextBox) al programma di posta elettronica (nel mio caso Outlook).




XXXXXXX XXXXXX XXXX: Ordine

Data:06/07/2002

-----------------------------------------------------------------------------------------
Cliente:XXXXXXXX XXXXXXX
-----------------------------------------------------------------------------------------

Indirizzo:XXX XXXX 15 12345 XXXXXX
Telefono: 1234-123456 Fax: 1234-654321
WEB: www.PRRRR.it
E-mail: info@XXXXXXXXXXXXXX.it
P.IVA: 12345678901

-----------------------------------------------------------------------------------------
|Codice | Articolo | PZ | Prezzo | Totale |
-----------------------------------------------------------------------------------------
|XXXXXXXX | Assale 30x5x1040mm con chiavette 6mm | 5 | 21,17 | 105,85 |
|AS001-04 | Assale 30x920mm con chiavette 6mm | 5 | 16,53 | 82,65 |
|AS004-02 | Cerchio anteriore 110 mm alluminio oro p| 5 | 17,35 | 86,75 |
|AS002-04 | Chiavetta 2 pioli 8x6x60 per assale 50mm| 5 | 1,19 | 5,95 |
|AS002-02 | Chiavetta 6x6x60 per assale 25-30mm | 5 | 0,41 | 2,05 |
|AS002-05 | Chiavetta 6x6x80 per assale 25-30mm | 5 | 0,46 | 2,30 |
|MO001-80 | Corona 80 denti Ergal | 5 | 6,79 | 33,95 |
|FA001-01G | Gruppo freno anteriore destro anodizzato| 10 | 110,01 | 1.100,10 |
|FA002-01N | Pinza freno idraulica anteriore destra a| 4 | 45,19 | 180,76 |
-----------------------------------------------------------------------------------------
Totale articoli in ordine : 9
Totale ordine : 1.600,36 Euro



se io aggiungo pił testo nella RichTextBox al programma di posta elettronica arriva solo parte di testo non tutto (:mad:)

cosa devo fare sono disperato!!!

ecco il codice che uso:



'api per invio mail
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
Const SW_SHOWNORMAL = 1


ShellExecute Me.hwnd, vbNullString, "mailto:info1@pippo.com?SUBJECT=" & Format(Date, "dd/mm/yyyy") & " - pippo - Ordine" & "&BODY=" & Rtbemail.TextRTF & "", vbNullString, "C:\", SW_SHOWNORMAL

Wild78
07-07-2002, 11:50
Usi delimitatori particolari???

P.S.
:quote: Per il trallallą

zampa28
07-07-2002, 13:07
delimitatori? cosa intendi?

zampa28
07-07-2002, 14:20
se mi dai la tua email ti mando un piccolo esempio



:smack:

Wild78
07-07-2002, 17:35
Ti ho pure risposto... :D

zampa28
07-07-2002, 19:40
io non ho ricevuto mail! :cry:

a che indirizzo hai spedito?

Wild78
07-07-2002, 20:40
perpaolo@ciaoweb.it

NON SEI TU PAOLO PERLETTI??? :D

zampa28
07-07-2002, 22:19
per non so quale assurdo motivo Ciaoweb mi permette solo di inviare E-mail:(

gentilmente spedisci a paoloperletti@virgilio.it (che tra l'altro mi permette solo di ricevere)

Loading