Con Shellexecute invio questo messaggio (ricavato da una RichTextBox) al programma di posta elettronica (nel mio caso Outlook).
codice:
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 (
)
cosa devo fare sono disperato!!!
ecco il codice che uso:
codice:
'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
Rispondi quotando
