Newsgroup: it.comp.lang.visual-basic
Titolo: attenzione e' un po' difficile questa volta

leggendo qua e la nel newsgroup ho visto un messaggio che indicava un sito:
http://www.vb2themax.com/Item.asp?PageID=TipBank&ID=100
dove si trova un esempio (che riporto qui sotto) che era in grado di mandare
mail da vb;
cosi e, ma il mio problema e fare l'attachment di due file in modo
automatico come si fa?
ESEMPIO del sito
*********************************
The ShellExecute API function recognizes email addresses if they are
prefixed by the "mailto:" prefix, and correctly run the default program for
sending email messages (e.g. Outlook). This lets you open a window for
sending an email and automatically fill the address field. Here's a wrapper
routine that encapsulates the low-level details:
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
' Open the default program for sending email messages
' Returns True if successful, False otherwise
Public Function OpenEmailProgram(ByVal EmailAddress As String) As Boolean
    Dim res As Long
    res = ShellExecute(0&, "open", "mailto:" & EmailAddress, vbNullString, _
        vbNullString, vbNormalFocus)
    OpenEmailProgram = (res > 32)
End Function
You should always check the return value of the function, in case no program
has been registered on the machine:
If Not OpenEmailProgram("
user...@domain.com
") Then
    MsgBox "Unable to run the email program"
End If
UPDATE: It turns out that you can even provided the contents for other mail
fields, by passing additional values on the URL. The following updated
version of the routine above supports a subject, the body of the message and
a CC mail address. All these added arguments are optional:
Sub OpenEmailProgram(sDest As String, Optional sSubject As String, _
    Optional sBody As String, Optional sCC As String)
    ShellExecute 0, vbNullString, "mailto:" & sDest & "?subject=" & sSubject
& _
        "&body=" & sBody & "&CC=" & sCC & "&attachment=c:\autoexec.bat", 0&,
0&, _
        1
End Sub
' how to use:
SendMail "
mbell...@vb2themax.com
", "SendMail Test", "The function
works!!!", _
    "
fba...@vb2themax.com
, 
desp...@vb2themax.com
"

         "&body=" & sBody & "&CC=" & sCC & "&attachment=c:\autoexec.bat",
[...]
Non saprei. Noto pero' che nel codice si sta componendo una stringa in cui,
dopo "attachment" c'e' un segno di uguale seguito da un nome di file da
allegare, compreso di percorso: hai provato a scrivere, di seguito, l'altro
nome di file col relativo percorso, separato dal primo con uno spazio o una
virgola o un punto e virgola o un tab o un pipe o... E leggere un po' di
documentazione?
--
Ciao.
Maurizio

...


 automatico come si fa?
Non lo so, ma mi č venuta in mente una soluzione "laterale".
Attacha uno zip, magari autoscompattante, che contenga tutti i file.
Ciao
*Roby*

 ho čprovato di tuuto pre me ne news č l'ultima spiaggia
Forse sono indelicato a fartelo notare, ma da come scrivi io mica mi sento
tanto tranquillo riguardo le prove che dici di aver fatto. Ti prometto che
appena ho un attimo di tempo ci do un'occhiata. Speriamo intervenga qualcuno
che ha gia' fatto l'esperienza. Buono il sistema zip che ti hanno indicato:
tienine conto.
--
Ciao.
Maurizio