Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un file e mandarlo via mail

Ciao a tutti sono un neofilo e ho bisogno di un grosso aiuto:
Io ho creato un datareport e voglio che anziche farmi vedere il foglio mi 
crei un file in formato txt o un altro e me lo mandi via mail(l'indirizzo 
del destinatario è sempre lo stesso).
Come posso fare?
Grazie mille 

 Come posso fare?
1) ti installi PDFCREATOR (è un sw gratuito e libeo che trovi facilmente su 
sourceforge.org
 e che ti permette di creare dei file PDF stampando su uno 
speciale driver)
2) lo configuri in modo che generi automaticamente i nomi dei file pdf e non 
chieda niente all'utente
3) da vb stampi il datareport sulla stampante definita dal PDF creator
4) ti installi JMAIL (la versione free - è un compoente che permette di dare 
funzionalità di mail alle applicazioni VB)
5) da vb invii la mail allegando il PDF grazie a JMAIL
Ciao
Elef 

 ha scritto nel messaggio 
news:lN9ge.144963$%I2.9...@tornado.fastwebnet.it...


 mail(l'indirizzo del destinatario è sempre lo stesso).
La cosa va fatta in due step:
1: creare un file
2: inviarlo via mail
Entrambi gli step sono stati discussi in questo NG, per cui con google 
gruppi troverai tutto.
Sul primo, in realtà, non è che se ne sia parlato più di tanto, quindi ti 
suggerisco di utilizzare il metodo ExportReport del datareport, e di usare 
file Html (che però, se vuoi inserire anche marchi o foto, diventa un filino 
più complesso).
Sul secondo step, si trova di tutto di più.
Ciao
Alberto
-- 
E tutto mi sembrava andasse bene... 

"Marco"
questo per Outllook Express .. senza NESSUN controllo
su eventuali errori o malfunzionamenti (se po' fa')
per altri programmi ci sono alternative piu' raffinate ..  a seconda
della versione e della lingua di OE potrebbe essere neccessario
modificare leggermente lo script *.vbs  (sezione sendkeys) qui sotto :
 set oShell = CreateObject("WScript.Shell")
 Set fs = CreateObject("Scripting.FileSystemObject")
 ''''Set txt =  fs.OpenTextFile("c:\message.txt")
 sTo = "
som...@somwehere.org
"
 sSubj =now()
 sMsg ="Report"
 sSubj= escape(sSubj)
 sMsg= escape(sMsg)
 oShell.Run "mailto:" & sTo & "?subject=" & sSubj & "&body=" & sMsg
 wscript.sleep 200
oShell.SendKeys "+{TAB}%ia"
 wscript.sleep 200
oShell.SendKeys "c:\test.txt"
oShell.SendKeys "{TAB 2}~"
oShell.SendKeys "^~"
--
Fosco

Scusa la mia ignoranza ma il tuo codice lo devo mettere per esempio sul 
controllo di un pulsante ???
Grazie
"Fosco" <fa...@fake.invalid> ha scritto nel messaggio 
news:Z%zge.9045$TR5....@news.edisontel.com...


 controllo di un pulsante ???
Anche .....  e' un file*.vbs
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Mail.vbs)
'se ti da' errore disattiva l'antivirus
fatti una ricerca su 
www.google.it
 su come implementarlo
direttamente in Visual Basic e gia' che ci sei fai un salto anche qui :
http://groups.yahoo.com/group/x-men-italy/files/LO/quoting.txt
http://www.freewebz.com/iosononiubbo/
--
Fosco

Scusa Fosco ma mettendolo sul controllo click del pulsante mi dice variabile 
non definita e si blocca su
oShell =
Come posso fare?
Grazie mille
"Fosco" <fa...@fake.invalid> ha scritto nel messaggio 
news:ChVge.9296$TR5...@news.edisontel.com...


 Come posso fare?
come ti ho detto devi cercare come implementarlo in VB
intanto comincia 
www.google.it
 "calling vbs" e poi affina
magari tipo calling vbs from Visual Basic
o piu' semplicemente visto che dei agli inizi per ora  potresti
semplicemente crearti lo script e richiamarlo esternamente
in Visual Basic ... ora non ho piu' il post originale e non ricordo
cosa volevi fare ecco qui sotto un progetto generico su come fare
l'implementazione in VB
' in un form
Private Sub Command1_Click()
Set oShell = CreateObject("WScript.Shell")
oShell.AppActivate "- Outlook Express"
SendKeys "~"
End Sub
Private Sub Command2_Click()
Set oShell = CreateObject("WScript.Shell")
   oShell.run "Notepad.exe"
   Sleep 5000
   If oShell.AppActivate("- Blocco note") Then
     oShell.SendKeys "CIAO"
   Sleep 3000
 oShell.SendKeys "%fe"
  Sleep 300
   oShell.SendKeys "n"
   End If
End Sub
'in un modulo (bas)
'VB 5.0 code sample (standard EXE with only the following in
'a standard BAS module.
'Needs project references to:
' shdocvw.dll (Microsoft Internet Controls)
' wshom.ocx   (Windows Scripting Host Object Model (Ver 1.0))
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Option Explicit
Dim oWSHShell 'As IWshRuntimeLibrary.IWshShell_Class
Dim oIE 'As SHDocVw.InternetExplorer
Dim oShell 'As SHDocVw.Shell
Dim oFolder 'As SHDocVw.Folder
Dim oFolderItems 'As SHDocVw.FolderItems
Dim oFolderItem 'As SHDocVw.FolderItem
Dim oFolderItemVerbs 'As SHDocVw.FolderItemVerbs
Dim oFolderItemVerb 'As SHDocVw.FolderItemVerb
Dim vDesktop 'As String
Sub Main()
End Sub
come detto vai hai siti che ti ho dato si risponde quotando SOTTO
come faccio io
http://digilander.iol.it/ifst/html/Quoting.html
http://groups.yahoo.com/group/x-men-italy/files/LO/quoting.txt
http://www.freewebz.com/iosononiubbo/
http://www.inferentia.it/netiquette
--
Fosco