Newsgroup: it.comp.appl.access
Titolo: e-mail & Access

Ciao a tutti ...
Sto vivisezionando il MDB che ho trovato sul sito comune (mapi32.dll) e sto
cercando di applicarlo a diverse condizioni. Risultati ...
Windows 98 - Non mi riesce di cavare un ragno dal buco se faccio dei test su
PC in cui il programma di posta è Outlook Express .... Non è previsto ?
Windows 95 - Con Outlook 2000 ottengo qualcosa di più ... riesco ad inviare
il primo mail, ma il secondo si paralizza (come se rimanesse l'istanza
bloccata). La procedura MAPISendMail apre una sessione per l'accesso ma non
mi sembra che poi vada a richiuderla. Non è che manca un comando di logout
dopo l'invio ?
C'è parecchia letteratura su Internet in merito alle funzioni MAPI, ma non
ho ancora chiara la differenza tra la MAPI.DLL e la MAPI32.DLL. E nemmeno
riesco a capire perchè non viene mai menzionato W98 (si fa sempre
riferimento a W95 e NT), Forse è perchè si tratta di informazioni ormai
vetuste. O forse è perchè le funzioni MAPI hanno qualcosa a che fare con
componenti che sul 98 non sono presenti ?
Qualche idea ?
Grazie
OndaMax

 ha scritto nel messaggio
news:BqfS6.15757$ZZ.6...@news.infostrada.it...


 con l'ovvio limite che funziona solo su Outlook, non Express.
Il fatto è che attualmente ho a che fare con troppe macchine e
configurazioni diverse. In realtà OutLook è già presente su gran parte dei
PC, anche se non come programma di posta predefinito. Avevo già problemi
simili col SendObject che mi funzionava solo se Outlook 2000 era predefinito
ed aperto. Poi ho scoperto che con Outlook Express potevo permettermi quella
funzione anche se non era il gestore di posta predefinito e anche senza
tenerlo aperto in background.
Speravo di trovare una soluzione simile ...
Grazie 1000 per la dritte, comunque ...
Vado a leggermi l'help per quanto riguarda l'oggetto di automazione.
OndaMax ;-)

 ha scritto nel messaggio
news:BqfS6.15757$ZZ.6...@news.infostrada.it...

Non ho ancora perfezionato il tutto ma se ti interessa una bozza di quello
che sto' facendo:
Private Sub Spedisci()
'----------------------------------------------------
'Oggetti di Outlook
'----------------------------------------------------
Dim myOlApp As Object                   'oggetto per l'apertura di Outlook
Dim myItem As MailItem                  'oggetto di tipo e-mail
Dim myRecipient As Recipient            'oggetto di tipo indirizzo
destinatario
Dim myAttachment As Attachment          'oggetto di tipo allegato
'----------------------------------------------------
'Tipi possibili di allegato all'e-mail
'----------------------------------------------------
Const olByReference As Integer = 4      'Collega un file esterno
Const olByValue As Integer = 1          'Incorpora il file all'elemento
Const olEmbeddedItem As Integer = 5     'Collega un'elemento di outlook
'----------------------------------------------------
'Variabili per la gestione
'----------------------------------------------------
Dim Outlook As String                   'collegamento ad Outlook
Dim olMailItem As Integer               'valore di olMailItem di Outlook
Dim Destinatario As String              'indirizzo del destinatario
Dim FileAllegato As String              'percorso completo dell'allegato
Dim OggettoEMail As String              'oggetto del messaggio
Dim TestoMessaggio As String            'testo del messaggio
'----------------------------------------------------
'Valorizzazione delle variabili
'----------------------------------------------------
'collegamento ad Outlook
Outlook = "Outlook.Application"
'in Outlook è una costante
olMailItem = 0
'indirizzo del destinatario
Destinatario = "nome@destinatario"
'percorso completo dell'allegato
FileAllegato = "percorso del file"
'Testo dell'oggetto nel messaggio
OggettoEMail = "Oggetto"
'corpo del messaggio
TestoMessaggio = "In allegato c'è il file ...." & Chr(13)
TestoMessaggio = TestoMessaggio & "La presente e-mail è stata inviata
automaticamente e senza controllo" & Chr(13)
TestoMessaggio = TestoMessaggio & "diretto. In caso di segnalazioni
rivolgersi al creatore dell'automatismo" & Chr(13)
'----------------------------------------------------
'settaggio oggetti ed impostazioni
'----------------------------------------------------
Set myOlApp = CreateObject(Outlook)
Set myItem = myOlApp.CreateItem(olMailItem)
Set myRecipient = myItem.Recipients.Add(Destinatario)
Set myAttachment = myItem.Attachments.Add(FileAllegato, olByValue, ,
OggettoEMail)
'----------------------------------------------------
'composizione degli elementi del messaggio
'----------------------------------------------------
myItem.Subject = OggettoEMail
myItem.HTMLBody = TestoMessaggio
myItem.Close olSave
myItem.Send
myOlApp.Quit
Set myAttachment = Nothing
Set myRecipient = Nothing
Set myItem = Nothing
Set myOlApp = Nothing
End Sub
Ripeto che è da perfezionare ;-)
ciao
--
Claudio Tregambe

Speravo di trovare una soluzione simile ...
Prova a leggerre il mio post a Fabio
con subject "email da Access 2k"
Ciao ElioP.

 con subject "email da Access 2k"
Letto. Sono commosso ... ;-)
Ho già scaricato ... domani ci do un'occhiata e forse sarebbe la soluzione
migliore.
Certo che il fatto di non riuscire a governare le MAPI non mi va giù ...
(orgoglio ferito ... :-)
Grazie ancora ...
OndaMax

 Ripeto che è da perfezionare ;-)
Ho capito, ho capito ... don't worry ... :-)
Grazie Claudio ...
OndaMax


ciao
--
Claudio Tregambe

 un punto fermo :-(
Ciao,
Per essere da perfezionare è filato via liscio alla prima ... :-)
Ho preso quasi integralmente il codice che hai postato ed ho costruito una
funzione tramite la quale passo 5 parametri: Destinatario, Allegato,
Oggetto, Messaggio e un Flag che identifica il formato del Body (Html o
Testo) per trattare in maniera diversa il messaggio (con tags Html o
liscio).
Ho ottenuto quindi una funzione che mi posso spendere ovunque semplicemente
importando il modulo.
Certo, col tempo si può implementare inserendo BCC, CC e quant'altro possa
servire, ma per il momento era tutto quello che mi serviva. Altra cosa che
prima o poi farò è verificare che Outlook non sia già aperto prima di
lanciarlo e richiuderlo. Ma come ho già detto la maggioranza dei miei utenti
usa Netscape al momento e OutLook non sa nemmeno di averlo ...
Non ho riscontrato nessuno dei problemi del send a cui accenni.
Come vedi non ho fatto grossi cambiamenti, ma se ti interessa ti faccio
comunque avere il modulo così come appare adesso. Eventualmente fai un
fischio a 
ond...@libero.it
 (vale per tutti ...).
Ancora grazie e, a risentirci ...
OndaMax ;-)
PS. Questo è un "grande" NG .... Giuro !

 PS. Questo è un "grande" NG .... Giuro !
Confermo e sottoscrivo ;-)
ciao
--
Claudio Tregambe

 l'indirizzo),
[cut]
Ma allora sei una miniera ... ;-)
Grazie ancora ... link archiviato !
OndaMax