Salve a tutti,
nel mio outlook ho configurato due caselle di posta, una personale e una di gruppo. Da una maschera access, riesco a leggere il file di posta del gruppo, scorrere le -mail, aprirle, ricercare valori nel body, allegare un messaggio esistente ad una nuova mail, ma non riesco a spedirle.
Questo l'errore : "Non è stato possibile inviare il messaggio. Non si dispone dell'autorizzazione per l'invio di un messaggio per conto dell'utente specificato."
All'apertura della mail creata da codice, il campo from sembra corretto, ma l'invio ritorna l'errore sopra descritto. Se provo a ri-selezionare la stessa casella di posta, funziona correttamente.
Posto il codice, un po' sporco dai numerosi tentativi di risolvere.
Dim OutApp As Object
Dim OutMail As Object
Dim objOutlookRecip As Object
Dim Recipients As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set Recipients = OutMail.Recipients
Set objOutlookRecip = Recipients.Add("xxx@xxx")
objOutlookRecip.Type = 1
-------
-------
Dim account As Object
For Each account In OutApp.Session.accounts
If account.smtpAddress = "xxx@xxx" Then
With OutMail
.SentOnBehalfOfName = "xxx@xxx"
.To = ""
.CC =
.Subject = ""
.HTMLBody = ""
.Attachments.Add olMail2, Outlook.OlAttachmentType.olEmbeddeditem
.SendUsingAccount = account
.Display
End With
For Each objOutlookRecip In OutMail.Recipients
objOutlookRecip.Resolve
Next
End If
Next
Set OutMail = Nothing
Set OutApp = Nothing
Qualche suggerimento ?
Grazie in anticipo