Newsgroup: it.comp.lang.visual-basic
Titolo: Apertura nuovo mail

Sapete di una procedura che mi crea un nuovo mail sul programma
di posta (non uso outlook ma eudora e/o lotus notes) e mi compila
i vari campi con roba che decido io? La cosa più importante è che
mi compili il campo dei files allegati.
Grazie

"Dr.Phobos" <Dr.Phobos@___.___> ha scritto nel messaggio
news:skdIa.3627$de....@news.edisontel.com...

esiste, te lo avrei anche detto se non avessi spammato mettendo l'ora
avanti.
ciao

 avanti.
Grazie! Non mi interessa per niente la tua risposta!
Penso solo che, senza motivo, mi hai insultato e hai messo in giro
della posta inutile! Bastava che non rispondessi!
Solo per tua informazione ti dico che per un fatto di configurazione
dei servers dove lavoro, l'ora è settata su GMT e quindi sballata!
Sul mio pc non posso cambiarla perchè andrebbe a sballare
anche tutti gli orari dei programmini di controllo che abbiamo!
E' bello vedere come la gente attacca incondizionatamente!

Dr.Phobos ha scritto:

Devi usare il controllo MAPI
-- 
Samuele Battarra
prova il mio newsreader:
http://space.virgilio.it/batt...@tin.it/programmi/news/

> Devi usare il controllo MAPI
Grazie, su alcuni pc funziona ma su altri mi compare la schermata
per la selezione account outlook! Ecco il codice:
sesMAPI.SignOn
msgMAPI.SessionID = sesMAPI.SessionID
msgMAPI.Compose
msgMAPI.RecipDisplayName = "
q...@qwe.com
"
msgMAPI.MsgSubject = "Subject"
msgMAPI.AttachmentType = mapData
msgMAPI.AttachmentPathName = "c:\xxx.txt"
msgMAPI.Send True
sesMAPI.SignOff

 per la selezione account outlook
sugli altri adopera : (*.vbs >>> addattatelo)
Dim sTo, sSubj, sMsg
set oShell = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
Set txt =  fs.OpenTextFile("c:\message.txt")
sTo = "
som...@somwehere.org
"
sSubj =now()
sMsg =txt.ReadAll()
sSubj= escape(sSubj)
sMsg= escape(sMsg)
oShell.Run "mailto:" & sTo & "?subject=" & sSubj & "&body=" & sMsg
wscript.sleep 200
oShell.SendKeys "^~"
--
Fosco

 oShell.SendKeys "^~"
E se volessi attaccare un file mdb, zip, bmp? Avevo già provato
questa soluzione ma mi serve una funzione che mi apra un nuovo
messaggio con un file in allegato a mia scelta. Tipo "Invia a" in
word!
Grazie comunque

 word!
Mi pare di avere visto che si puo fare in maniera "igenica"  prova a cercare
questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
per il momento come "alternativa" prima di  > > oShell.SendKeys "^~"
("alternativa" perche' il sendkeys non e' un metodo molto affidabile
per esempio se un altra applicazioni "ruba" il focus ad OE cosa succede ?)
puoi mettere
 wscript.sleep 200
oShell.SendKeys "+{TAB}%ia"
 wscript.sleep 200
oShell.SendKeys "test.txt"
oShell.SendKeys "{TAB 2}~"
Ovviamente al posto di test.txt puoi mettere il percorso completo
del file che desideri aggiusta gli sleep per le tue bisogne
 Dim sTo, sSubj, sMsg
 set oShell = CreateObject("WScript.Shell")
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set txt =  fs.OpenTextFile("c:\message.txt")
 sTo = "
som...@somwehere.org
"
 sSubj =now()
 sMsg =txt.ReadAll()
 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.zip"
oShell.SendKeys "{TAB 2}~"
oShell.SendKeys "^~"
--
Fosco