Newsgroup: it.comp.lang.visual-basic
Titolo: Mailto: ---> Mandare Attach

Allora dopo vari tentativi ho trovato i seguenti parametri del comando
MAILTO:
?Subject=xxxx&Body=xxxxx&CC=xxxx
Mi manca com mandare i files....ho provato con & Attachment o &Attach ma non
c'č verso....chi mi sa aiutare?
grazie mille
--
------- CED L'Abbondanza -------
http://www.labbondanza.it
Email: 
in...@labbondanza.it
(Piombini L./Vigna F./Bondi D.)
--------------------------------------------

 c'è verso....chi mi sa aiutare?
in questo modo non credo ci sia pezza.
prova a cercare kmail su
http://winfiles.cnet.com
oppure
SendMail.ocx (require MSWINSCK.OCX) download (28 KB)
POP3ocx.ocx (require MSWINSCK.OCX) download (31 kB)
http://members.xoom.com/dd_software/
ciao, a.

 Mi manca com mandare i files....ho provato con & Attachment
o &Attach ma non c'è verso....chi mi sa aiutare?
Questione ampiamente dibattuta ma non ho ancora capito se ci
sia una soluzione definitiva e tranquilla in tutte le
reincarnazioni di Windows.
Circa mezzo anno fa ho postato una soluzione, derivata da
quella di vb2themax, e alcuni hanno detto che funzionava,
altri che no.
Io, con Outlook 98, non ho problemi, ma non ho ancora avuto il
tempo ed il coraggio di installarla in giro per il mondo.
Mi sembra, ma non ho verificato, che "&Cc=" possa incasinare
il tutto.
Ti posto un esempio del codice che uso io (vb4) quindi, se usi
vb6, puoi risparmiarti il mio vb4Replace e qualche variant.
Fammi sapere se ti funziona e che configurazione hai, grazie.
Option Explicit
Private vbChr34 As String
Private vbSpace As String
' HINSTANCE ShellExecute(
'   HWND    hWnd,         // handle to parent window
'   LPCTSTR lpOperation,  // pointer to string that specifies
'                         //  operation to perform
'   LPCTSTR lpFile,       // pointer to filename string
'   LPTSTR  lpParameters, // pointer to string that specifies
'                         //  executable-file parameters
'   LPCTSTR lpDirectory,  // pointer to string that specifies
'                         //  default directory
'   INT     nShowCmd      // whether file is shown when opened
' );
Private Declare Function ShellExecute _
  Lib "shell32" _
  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
Public Sub Main( _
)
Dim strDest    As String
Dim strSubject As String
Dim strBody    As String
Dim strAttach  As String
  Let vbChr34 = Chr$(34)
  Let vbSpace = Chr$(32)
  Let strDest _
    = "
r...@tin.it
;
a...@def.com
"
  Let strSubject _
    = "Prova.-"
  'Let strSubject = vb4Replace(strSubject, ".", Chr2Hex("."))
  'Let strSubject = vb4Replace(strSubject, ".", Chr2Hex("-"))
  Let strBody _
    = "Testo di prova." & vbCrLf _
    & "Seconda riga.-" & vbCrLf
  'Let strBody = vb4Replace(strBody, vbSpace,
Chr2Hex(vbSpace))
  'Let strBody = vb4Replace(strBody, ".", Chr2Hex("."))
  'Let strBody = vb4Replace(strBody, ".", Chr2Hex("-"))
  Let strBody = vb4Replace(strBody, vbCr, Chr2Hex(vbCr))
  Let strBody = vb4Replace(strBody, vbLf, Chr2Hex(vbLf))
  Let strAttach _
    = vbChr34 & "C:\Autoexec.Bat" & vbChr34
  Call SendMail( _
      Dest:=strDest _
    , Subject:=strSubject _
    , Body:=strBody _
    , Attach:=strAttach)
End Sub
Private Function Chr2Hex( _
  Chr As String _
) As String
Dim strHex  As String
  If Len(Chr) Then
    Let strHex = Hex$(Asc(Chr))
    Let Chr2Hex = "%"
    If Len(strHex) = 1 _
    Then _
      Let Chr2Hex = Chr2Hex & "0"
    Let Chr2Hex = Chr2Hex & strHex
  End If
End Function
Private Sub SendMail( _
  ByVal Dest As String _
, Optional ByVal Subject As Variant _
, Optional ByVal Body As Variant _
, Optional ByVal Attach As Variant _
)
Dim s As String
  Let s = "mailto:" & Dest
  If Not IsMissing(Subject) _
  Then _
    Let s = s & "?subject=" & Subject
  If Not IsMissing(Body) _
  Then _
    Let s = s & "&body=" & Body
  If Not IsMissing(Attach) _
  Then _
    Let s = s & "&attachment=" & Attach
  Debug.Print s
  Call ShellExecute( _
      hWnd:=0& _
    , lpOperation:="open" _
    , lpFile:=s _
    , lpParameters:=vbNullString _
    , lpDirectory:=vbNullString _
    , nShowCmd:=vbNormalFocus)
End Sub
Private Function vb4Replace( _
  ByVal Expression As String _
, ByVal Find As String _
, ByVal Replace As String _
, Optional ByVal Compare As Variant _
) As String
Dim l As Long
  If IsMissing(Compare) _
  Then _
    Let Compare = 0
  Let l = InStr(1, Expression, Find, Compare)
  While l
    Let Expression _
      = Mid$(Expression, 1, l - 1) _
      & Replace _
      & Mid$(Expression, l + Len(Find))
    Let l _
      = InStr(l + Len(Replace), Expression, Find, Compare)
  Wend
  Let vb4Replace = Expression
End Function
--
Ciao.
Maurizio

c'è verso....chi mi sa aiutare?
La sintassi completa di MAILTO la trovi sul mio sito.
A quanto mi risulta non è possibile inviare attachment con quel comando.
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------