Abilitazione "send on the behalf of" con account IMAP

[WCB]

Ciao a tutti,
da un paio di giorni a questa parte ho configurato la mia email aziendale IMAP.
Ho modificato la macro di excel aggiungendo il seguente codice:

Codice: Seleziona tutto

.SendOnTheBehalfOfName = "miaemail@azienda1.com"

Però ogni volta che invio il messaggio tramite excel, mi ritorna indietro su outlook con un messaggio che cita il seguente testo:
This message could not be sent. Try sending the message again later, or contact your network administrator. You do not have the permission to send the message on behalf of the specified user. Error is [0x80070005-0x0004dc-0x000524].
Cercando su internet, ho trovato che bisogna abilitare una specie di delega della mia email aziendale.
Il punto è che non saprei se la cosa deriva dal fatto che devo modificare nuovamente il codice o è un problema della configurazione, dico questo perchè se invio un messaggio normale (sempre con la mia email aziendale) da outlook me la invia tranquillamente invece da excel no.
Ho provato anche a fare la prova con la mia email personale ed in entrambi i casi (excel ed outlook) me la invia tranquillamente.
Avete qualche suggerimento a riguardo?
Grazie mille per il vostro aiuto..

[Anthony47]

Non ho capito se il problema in generale e' l'invio di email tramite macro di Excel o unicamente il SendOnTheBehalfOfName
Comunque direi che avremmo bisogno di ragionare su una macro completa, non sulla singola istruzione decontestualizzata.

Ciao

[WCB]

Ciao Anthony,
il problema è incentrato sulla funzione del SentOnTheBehalfOfName, se lo tolgo dal codice mi invia le email (da excel, aprendo outlook) però con la mia email personale.
Posto il codice che uso:

Codice: Seleziona tutto

Sub Invia()
'
' Invia Macro
'

'
    Dim EmailAddr As String
    Dim Subj As String
    Dim StrMsg As String
    Dim uR As Long
    Dim I As Long
    Dim OutApp As Object
    Dim OutMail As Object
    Dim Subject As String
    Dim wk1 As Workbook
    Dim sh As Worksheet
    Dim rCell As Range, rng As Range
    Dim sDestinatario As String
    Const iNumero_Email As Long = 1
Set OutApp = CreateObject("Outlook.Application")
    Set wk1 = ThisWorkbook
    Set sh = wk1.Worksheets("Sheet2")

    With sh
        uR = LastRow(sh, .Columns("F:F"))
        Set rng = .Range("E" & uR + 1).Resize(iNumero_Email)
       
    End With
    For Each rCell In rng.Cells
        With rCell
            If Not IsEmpty(.Value) Then
                sDestinatario = .Value
                Set OutMail = OutApp.CreateItem(0)
                With OutMail
                   
                    .To = sDestinatario
                    .Subject = "Company presentation"
                    .HTMLBody = StrMsg

                    .Attachments.Add ("C:\Users\....\document.pdf")
                    .Attachments.Add ("C:\Users\....\cartel.zip")
                    .Display
                    '.Send
         Application.Wait Now + TimeValue("00:00:10")
                End With
                .Offset(0, 1).Value = "x"
            End If
        End With

    Next rCell
End Sub

[Anthony47]

Non ho la possibilita' di controllare l'esito, secondo me dovresti concatenare i comandi in questa sequenza

Codice: Seleziona tutto

                    .To = sDestinatario
                    .SendOnTheBehalfOfName = "MailDelDelegante@azienda.com"


L'indirizzo da usare e' quello del "delegante", che deve aver completato la procedura di delega dal suo account, che deve essere collegato allo stesso server Exhange.
(mi insospettisce la tua formula "miaemail@azienda1.com": sei tu il delegante? Sei sullo stesso server del delegato che deve spedire a tuo nome?)

Per la procedura di delega: https://support.office.com/en-us/articl ... n-US&ad=US
(esiste anche una versione in italiano, ma se puoi lavora su quella in inglese)


In generale, potresti facilitarti la scrittura del codice se imposti, nel vba di Excel, un riferimento alla libreria di Microsoft Outlook (Menu /Strumenti /Riferimenti; cerchi La Microsoft Outlook xx Object Library, metti la spunta, confermi con Ok. Questo metodo si chiama "Early Binding", cioe' associazione anticipata di un oggetto a una caratteristica.
Poi modifichi (temporaneamente) le dichiarazioni:

Codice: Seleziona tutto

    Dim OutApp As Outlook.Application   'invece che Object
    Dim OutMail As Outlook.MailItem     'invece che Object


In questo modo, quando ad esempio scrivi

Codice: Seleziona tutto

    With OutMail
        .xy


Appena digiti "punto" vedrai quali metodi e proprieta' sono disponibili per un oggetto MailItem, e potrai accedere anche all'help on line di quella libreria.

Terminata pero' la creazione e il debug del codice, la mia raccomandazione e' di eliminare il riferimento a quella libreria e di tornare a definire quelle variabili come Object. Questo metodo si chiama "Late Binding", cioe' associazione ritardata, e riduce il rischio di incompatibilita' del codice se usato tra versioni diverse di applicativi.

Ciao