usare Exchange per inviare eMail ..
Ivan
Dopo aver risolto l'invio di eMail tramite winsock, grazie all'ottimo
esempio messo a disposizione da Alessandro Baraldi, mi trovo nella necessità
di inviare email usando Exchange.
Il problema è che non conosco nulla di questo ambiente e mi chiedevo se
potessi usare Outlook e i suoi oggetti e metodi, che se non ho capito male
si integra bene con Exchange.
Vi chiedo qualsiasi indicazione, anche non precisa, almeno per farmi
un'idea..
IvanDaBologna
Sergio MAZZA
news:%23aNSrZm...@TK2MSFTNGP02.phx.gbl...
Tramite Automazione OLE puoi farlo:
http://msdn2.microsoft.com/en-us/library/aa210285(office.11).aspx
Ciao.
--
Sergio MAZZA
Ivan
"Sergio MAZZA" <sergi...@tiscali.it> ha scritto nel messaggio
news:eLWAXivD...@TK2MSFTNGP06.phx.gbl...
grazie Sergio per la risposta,
ho dato un'occhiata e credo che prenderò la via illustrata nell'esempio per
VB, visto che gestisco il tutto da Access e ... adesso provo di capirci
qualcosina e casomai riapro un 3D con domande specifiche o vedo su
public.it.office.outlook .
Sergio MAZZA
>
>
> grazie Sergio per la risposta,
> ho dato un'occhiata e credo che prenderò la via illustrata nell'esempio
> per VB, visto che gestisco il tutto da Access e ... adesso provo di
> capirci qualcosina e casomai riapro un 3D con domande specifiche o vedo
> su public.it.office.outlook .
Se parli di automazione, interessa anche me... Non ci escludere (Sigh!)...
Ciao.
--
Sergio MAZZA
Ivan
"Sergio MAZZA" <sergi...@tiscali.it> ha scritto nel messaggio
news:u2602b5D...@TK2MSFTNGP04.phx.gbl...
se riesco davvero a imbastire qualcosa, non escludo nessuno ! mi faccio
risentire .. ;))
IvanDaBologna
Ivan
[cut]
> Se parli di automazione, interessa anche me... Non ci escludere (Sigh!)...
>
> Ciao.
> --
> Sergio MAZZA
per non cercare la luna ho provato questa mini procedura e in locale
funziona:
Public Function mandaMail()
Dim MyOlApp, MyItem
Set MyOlApp = CreateObject("Outlook.Application")
Set MyItem = MyOlApp.CreateItem(olMailItem)
MyItem.Subject = "Ciao da Ivan - " & Now()
MyItem.Body = " clicca l'icona per vedere il contenuto dell'allegato." &
Chr(13)
'Set MyAttachments = MyItem.Attachments
'MyAttachments.Add "C:\Documents and settings\My out\Q401.xls",
OlByReference, 1, _
"ilNomeDelFoglio"
MyItem.To = "ivanbenedetti2...@alice.it"
MyItem.Display 'puň anche non essere visibile ma la lascio ... cosě_
'il tecnico si 'accorge ' dell'invio !
End Function
lunedě provo sui clients del cliente, se Exchange non si ribella il brodo č
fatto!
IvanDaBologna
PS
bisogna aggiungere ai riferimenti la libreria oggetti di Outlook.
Tratta dal volume 'programmare Outlook 2002', Mondadori informatica.
Sergio MAZZA
>
> per non cercare la luna ho provato questa mini procedura e in locale
> funziona:
>
> Public Function mandaMail()
> Dim MyOlApp, MyItem
> Set MyOlApp = CreateObject("Outlook.Application")
> Set MyItem = MyOlApp.CreateItem(olMailItem)
> MyItem.Subject = "Ciao da Ivan - " & Now()
> MyItem.Body = " clicca l'icona per vedere il contenuto dell'allegato."
> & Chr(13)
> 'Set MyAttachments = MyItem.Attachments
> 'MyAttachments.Add "C:\Documents and settings\My out\Q401.xls",
> OlByReference, 1, _
> "ilNomeDelFoglio"
> MyItem.To = "ivanbenedetti2...@alice.it"
> MyItem.Display 'puň anche non essere visibile ma la lascio ... cosě_
> 'il tecnico si 'accorge ' dell'invio !
> End Function
>
>
> lunedě provo sui clients del cliente, se Exchange non si ribella il brodo
> č fatto!
Resto in ascolto...
> IvanDaBologna
>
> PS
> bisogna aggiungere ai riferimenti la libreria oggetti di Outlook.
> Tratta dal volume 'programmare Outlook 2002', Mondadori informatica.
Direi di sě se vuoi utilizzare gli oggetti di "quell'oggetto"...
Ciao.
--
Sergio MAZZA
Alessandro Cara
[cut]
> bisogna aggiungere ai riferimenti la libreria oggetti di Outlook.
Anche se fai CreateObject ?
Se la metti nei riferimenti non e' sufficienta fare set oO = new
outlook.application?
Metterla fra i riferimenti puo' creare problemi di "versioning"?
> Tratta dal volume 'programmare Outlook 2002', Mondadori informatica.
La libreria o la routine? ;<)
--
ac
Ivan
"[cut]
> Resto in ascolto...
>
>> IvanDaBologna
>>
>> PS
>> bisogna aggiungere ai riferimenti la libreria oggetti di Outlook.
>> Tratta dal volume 'programmare Outlook 2002', Mondadori informatica.
>
>
> Direi di sì se vuoi utilizzare gli oggetti di "quell'oggetto"...
>
> Ciao.
> --
> Sergio MAZZA
ok, la nota era affermativa.
Non trovo la proprietà o metodo per richiedere la conferma di lettura, come
si chiama in inglese?
(disposition.notification ?? o come? mahhh)
Ivan
"Alessandro Cara" <alessan...@ay-1asistemi.it> ha scritto nel messaggio
news:W2X9h.10289$4M6....@tornado.fastwebnet.it...
la libreria è integrata in office, e quindi disponibile nei riferimenti : da
spuntare.
La routine è presa dal libro.
IvanDaBologna
PS
il versioning problem esiste di sicuro, e lunedì ci farò a cazzotti visto
che vado su un 2003, spero nella compatibilità all'indietro.
Ivan
"Alessandro Cara" <alessan...@ay-1asistemi.it> ha scritto nel messaggio
news:W2X9h.10289$4M6....@tornado.fastwebnet.it...
Ciao Alessandro,
EPILOGO DELLA PROVA.
Ho lasciato la routine come descritta, ho solo spedito i messaggi ad utenti
validi, tutto funziona a meraviglia.
PREMESSE
Quell'azienda ha configurato Outlook come gestore di posta su 'tutti' i
client e il servizio è assicurato da Exchange server. Exchange non si
ribella all'invio come da procedura. A me rimarrà l'onere di identificare
ogni client per capire quale stà inviando il messaggio (non è assolutamente
indispensabile... per mio uso e registrazioni successive nel DB delle mails
spedite).
Potrei prevedere anche la procedura che si assicura di impostare la
richiesta di lettura sul client in esecuzione, ma lascio che siano i singoli
individui a decidere.
Io ho risolto il mio problema ...
RIFERIMENTI
Hai ragione tu, non serve indicare la libreria di Outlook istanziando con
Set MyOlApp = CreateObject("Outlook.Application")
il problema mi era sorto perchè l'esempio 'girava' con le librerie riferite
ed invocava la costante
olMailItem che pur avendo valore 0 (zero) non veniva digerita dal VBA di
Access, è bastato sostituire la var col suo valore e si possono
tranquillamente togliere i riferimenti.
Meglio prevedere tutta la gestione degli errori ecc. ecc., ma per oggi sono
soddisfatto.
qui sotto la versione 'funzionante', seppur ridotta al minimo.
------------------------
Public Function mandaMail()
Dim MyOlApp, MyItem
Set MyOlApp = CreateObject("Outlook.Application")
'Set MyItem = MyOlApp.CreateItem(olMailItem)
Set MyItem = MyOlApp.CreateItem(0)
MyItem.Subject = "Ciao da Ivan - " & Now()
MyItem.Body = " Questo è il corpo del messaggio" & vbLf & _
"La seconda riga"
'Set MyAttachments = MyItem.Attachments
'MyAttachments.Add "C:\My Documents\Q401.xls", OlByReference, 1, _
"Q4 2001 Results Chart"
MyItem.To = "i.v.a.n.b.e.n...@alice.it"
MyItem.Display 'può anche non essere visibile ma la lascio così_
'il tecnico si 'accorge ' dell'invio !
End Function
---------------------------
ciao a tutti IvanDaBologna
Sergio MAZZA
news:emnS7ijE...@TK2MSFTNGP06.phx.gbl...
Ciao e buon lavoro...
--
Sergio MAZZA