Newsgroup: it.comp.lang.visual-basic
Titolo: spedire allegati da vb6









Salve gente scusate se vi rompo ma non riesco


a catturare un file e metterlo nel'allegato per poi


spedirlo


io al massimo sono arrivato a questo punto dopo di che


buio completo


mi sono guardato anche il comando Attachment


ma non l'ho capito


 


c'è qualche buona anime che mi può dare una dritta


vi ringrazio molto


 


il listato sotto è quel poco che ho fatto


ciao


el_modifica


 


 


====


                         
modulo bas


Public Const SW_SHOW = 1 'Dichiarazione costanti
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  
'Dichiarazione API


 


Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
Dim hBrowse 
As Long


 


On Error Resume Next 'Istruzione per evitare errori bloccanti.


 


    hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, "", 
"", SW_SHOW)
End Sub
======


                                  
nel form


' 1  label   =  lblTitle


 


Private Sub Form_Load()


    lblTitle.FontUnderline = True
    
lblTitle.MousePointer = 13
    lblTitle.Caption ="  
mailto:Nome 
mittente
 "
    lblTitle.FontUnderline = True


 


End Sub


 


Private Sub lblTitle_Click()
Call Navigate(Me, lblTitle.Caption & 
"?SUBJECT= Consilio sul programma ")


 


End Sub



La prossima volta cerca di postare utilizzando come formato testo normale.
Passando alla tua domanda, non ti rispondo ma ti invito a cercare con google
gruppi perchè è una domanda fatta e rifatta.
http://groups.google.it/group/it.comp.lang.visual-basic?hl=it&lr=&ie=UTF-8
Ciao, Vincenzo

 google gruppi perchè è una domanda fatta e rifatta.
Aggiungo: cerca "vbsendmail"  ;)
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 gruppi perchè è una domanda fatta e rifatta.
talmente fatta che oltre che a google si puo' chiedere alla narcotici.

*PANT*PANT*
le virgole,,,,, i punti.......
accidenti... *PANT* non respiro!
;-)

 ha scritto

per rifiatare puoi leggerti i post sulle 2 query che restituiscono 2 righe
con 2 record ma sono vuoti pero' funziona perche' restituisce 2 record con 2
righe.
in francese la chiamano mise en abime, i col circonflesso :)





Scusate, inanzitutto vi ringrazio dei 
consigli


Comunque forse data la mia ignoranza o il 
caldo non 


sono riuscito a concludere 
niente


Potreste darmi un piccolo esempio da 
poterci lavorarci su


grazie ancore




el_modifica






 


 


====


                         
  modulo bas


Public Const SW_SHOW = 1 'Dichiarazione costanti
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  
  'Dichiarazione API


 


Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
Dim 
  hBrowse As Long


 


On Error Resume Next 'Istruzione per evitare errori bloccanti.


 


    hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, 
  "", "", SW_SHOW)
End Sub
======


                                  
  nel form


 


Private Sub Form_Load()


    lblTitle.FontUnderline = 
  True
    lblTitle.MousePointer = 13
    
  lblTitle.Caption ="  
mailto:Indirizo
 "
    
  lblTitle.FontUnderline = True


 


End Sub


 


Private Sub lblTitle_Click()
Call Navigate(Me, lblTitle.Caption & 
  "?SUBJECT= '''Oggetto ''''")


 


End Sub



 grazie ancore
Non hai cercato, come ti è stat consigliato... (e ciò, è male...)
"vbSendMail.dll Version 3.65-- Easy E-mail Sending in VB, with 
Attachments"
http://www.freevbcode.com/ShowCode.Asp?ID=109
Se non riesci ora...
Ciao


 niente di piu
Ma la DLL (con esempio) che ti ho indicato, funziona o no?


 ha scritto nel messaggio 
news:dbba0g$3fv$1...@area.cu.mi.it...


 Scusami quale dll
Prendi in giro? :)
"vbSendMail.dll Version 3.65-- Easy E-mail Sending in VB, with 
Attachments"
http://www.freevbcode.com/ShowCode.Asp?ID=109
-- 


Scusami non avevo capito
ciao e grazie 1000 

Ho cercato con google
visual-Basic.it
in diversi forum
tanti esempi ma quello che cerco io no
neanche a modificarlo
in fin dei conti mi dovrebbe ataccare l'allegato
mentre apro Outlook express.
il fatto che non conosco i comandi specifici
non sono un profesionista
cerco solo di divertirmi
diciamo che per me è solo un hobby
niente di piu
ciao e grazie ancora