[Access97] interazione con [Outlook]

[daryl74]

In un modulo di Access 97 ho questa funzione:

Public Function InviaMessaggio(Oggetto As String, Messaggio As String, Destinatari As String)

Dim myOLApp As Object
Dim myNameSpace As Object
Dim myOLItem As Object

Set myOLApp = CreateObject("Outlook.Application")
Set myNameSpace = myOLApp.GetNameSpace("MAPI")
Set myOLItem = myOLApp.CreateItem(0)
With myOLItem
.Subject = Oggetto
.Body = Messaggio
.to = Destinatari
.send
End With

End Function


che "ovviamente" funziona benissimo...
Dovrei crearne una simile che mi crei un nuovo messaggio E-mail con i DESTINATARI il CC, senza OGGETTO e senza MESSAGGIO. Dovrebbe aprirsi quindi il nuovo messaggio con la possibilità di mettere OGGETTO e MESSAGGIO...

Qualcosa di qst tipo:

Public Function InviaMessaggio(Destinatari As String, DestinatariInCopia As String)

Dim myOLApp As Object
Dim myNameSpace As Object
Dim myOLItem As Object

Set myOLApp = CreateObject("Outlook.Application")
Set myNameSpace = myOLApp.GetNameSpace("MAPI")
Set myOLItem = myOLApp.CreateItem(0)
With myOLItem
.to = Destinatari
.CC = DestinatariInCopia
'.send 'questa riga dovrebbe essere disabilitata, poichè non deve essere inviato fino al completamento
End With

il problema è che il MAIL viene creato ed infilato nella cartella bozze di Outlook. Come posso fare perchè far si che il mail rimanga aperto per il completamento???

Grazie

DaryL 74

[ladyBlu]

Originariamente inviato da daryl74
...che mi crei un nuovo messaggio E-mail con i DESTINATARI il CC, senza OGGETTO e senza MESSAGGIO. Dovrebbe aprirsi quindi il nuovo messaggio con la possibilità di mettere OGGETTO e MESSAGGIO...
...

Dim myOLItem As Outlook.MailItem 'non As Object

With myOLItem 
   .to = Destinatari 
   .CC = DestinatariInCopia 
   .Display 1

   .send 
End With

aggiungendo quella riga mostri la mail(modale) all'utente. non appena verrà chiusa il programma esegue il Send.
Spero sia ciò che cercavi.

[daryl74]

GRAZIEEEEEEEE era proprio quello che cercavo !!!!

Nel frattempo avevo trovato 1 altra soluzione per aggirare il problema, modificando una funzione trovata su 1 sito.

Ho aggiunto un controllo ActiveX di tipo "Microsoft Web Browser" nella maschera, attribuendogli il nome "webbrowser1".
Poi ad 1 pulsante ho fatto eseguire questo codice:

WebBrowser1.Navigate "MAILTO:" & DestinatariMail & "&CC=" & DestinatariInCopia & "?Subject=INSERIRE L'OGGETTO&Body=Scrivere qui il testo del messaggio"

Che funziona altrettanto bene.

Adotterò comunque la tua soluzione che è in linea con il codice già scritto da me in precedenza.

Grazie ancora

DaryL74

[ladyBlu]

Originariamente inviato da daryl74
GRAZIEEEEEEEE era proprio quello che cercavo !!!!
...
Adotterò comunque la tua soluzione che è in linea con il codice già scritto da me in precedenza.

Grazie ancora

DaryL74

di niente.
buon lavoro.