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

Rispondi quotando