Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Abilitazione "send on the behalf of" con account IMAP

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Abilitazione "send on the behalf of" con account IMAP

Postdi WCB » 05/02/19 11:13

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 :undecided: 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.. :)
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Junior
 
Post: 92
Iscritto il: 09/01/19 17:52

Sponsor
 

Re: Abilitazione "send on the behalf of" con account IMAP

Postdi Anthony47 » 05/02/19 21:04

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16453
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Abilitazione "send on the behalf of" con account IMAP

Postdi WCB » 06/02/19 09:41

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
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Junior
 
Post: 92
Iscritto il: 09/01/19 17:52

Re: Abilitazione "send on the behalf of" con account IMAP

Postdi Anthony47 » 07/02/19 00:46

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16453
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Abilitazione "send on the behalf of" con account IMAP":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti