Newsgroup: it.comp.lang.visual-basic
Titolo: Invio Mail

Ciao a tutti,
ho la necessità di impostare, via codice, l'invio di un'e-mail.
Sono riuscita ad impostare i valori ma si apre in autonmatico la
maschera di invio e-mail di microsoft outlook, mentre io vorrei che
venisse impostato outlook express (così come impostato nelle
proprietà di internet explorer).
Sapete aiutarmi? Ho consultato anche le discussioni precedenti ma non
ho trovato niente di attinente con il mio problema.
Saluti

lcerbiatto ha scritto:

Facci capire cosa hai usato per generare quello che hai fatto.....!!!
@Alex

 ho la necessità di impostare, via codice, l'invio di un'e-mail.
http://www.ostrosoft.com/smtp_component/smtp_vb.zip
da :  
http://www.ostrosoft.com/smtp_component.asp
--
Fosco

ho la necessità di impostare, via codice, l'invio di un'e-mail.
Sono riuscita ad impostare i valori ma si apre in autonmatico la
maschera di invio e-mail di microsoft outlook
Se fai start esegui  mailto:
(invio) dovrebbe aprirsi il client di default
'esempio mailto:  in vbs  (per OE)
filename = "c:\message.txt"
Set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine now()
newf.WriteLine "Hello, world"
newf.WriteLine "Ciao"
newf.WriteLine "Come stai"
newf.Close
'oShell.run"c:\message.txt"
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 1000
oShell.SendKeys "^~"
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

Grazie per l'aiuto ma ancora niente da fare   :-(
Il codice che io ho già impostao è il seguente:
Private Sub EMail_Outlook(sAllegato As String)
Dim AppOutLook As Object
Dim Email As New OutLook.MailItem
  Set AppOutLook = CreateObject("OutLook.Application")
  Set Email =
AppOutLook.ActiveExplorer.Application.CreateItem(olMailItem)
  Email.Subject = "Estratto conto al " & Format(Now, "dd/mm/yyyy")
  Email.Attachments.Add sAllegato
  Email.Display
End Sub
Solo che mi apre la maschera di invio di microsoft office.


Domanda: se usi l'automazione di Outlook, come puoi aspettarti di interagire con
OE (Outlook *EXPRESS*) che tra l'altro, a quanto mi risulta, è sprovvisto di un
simile meccanismo COM?
Magari!!!
Devi per forza usare i metodi suggeriti (SMTP o MAPI o Shell.Execute)
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.

 "lcerbiatto"
' Wordwrap _Fix e commentato il send finale
' togliere ''''''''''   per un uso effettivo :
'esempio mailto:  in vbs  (per OE)
filename = "c:\message.txt"
Set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine now()
newf.WriteLine "Hello, world"
newf.WriteLine "Ciao"
newf.WriteLine "Come stai"
newf.Close
Set txt =  fso.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


 Solo che mi apre la maschera di invio di microsoft office.
http://www.google.it/search?hl=it&q=Outlook+Express%2Bcdo&btnG=Cerca&meta=
 snip : 
http://tinyurl.com/yyyxnm
--
Fosco

"Fosco"

Ahhhhrg adesso NON ricordo se e' per OE o per Outlook
Comunque se adoperassi da subito quello che ti ho postato NON
avresti problemi .. ci sono gia gli esempi inclusi ed e' free:
http://www.ostrosoft.com/smtp_component/smtp_vb.zip
da :
http://www.ostrosoft.com/smtp_component.asp
anche in VBS e JS volendo :
http://www.ostrosoft.com/smtp_component/smtp_vbscript.zip
http://www.ostrosoft.com/smtp_component/smtp_javascript.zip
--
Fosco


Ma se usassi semplicemente la libreria vbSendMail...? Io la sto usando
e ti posso garantire che funziona benissimo.... Prova a dare
un'occhiata a  
http://www.freevbcode.com/
Ciao Paolo