Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Office 2010. In VBA Riferimenti, manca la libreria Outlook

Ultimo Aggiornamento: 25/11/2018 13:35
Post: 89
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
25/11/2018 09:37

Gent.mi,

ho notato che in VBA all'editor e controllo riferimenti, non c'è nessun riferimento a Microsoft Outlook 14.0 o 15.0.
Vorrei sapere il procedimento per ripristinare o installare prelevando dalla rete.
Al momento non sono riuscito trovare dalla rete la suddetta libreria.
Fiducioso di un gradito riscontro, ringrazio e saluto
Domenico.
Post: 2.032
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
25/11/2018 10:28

ciao
non so aiutarti ma, se proprio non cavi un ragno dal buco, utilizza il "late binding" al posto dell' "early binding" che ti costringe a spuntare un riferimento nel vbe.

In tal modo, non avresti problemi su altri pc che non hanno tale riferimento.

Immagino tu stia cercando di fare qualcosa del genere:

(early binding) che vuole il riferimento alla lib di off Outlook:

dim Outlk as outlook.application
set Outlk = new outlook.application
etc...etc

(late binding) nessun riferimento voluto:

dim Outlk as object
set Outlk = createobject("outlook.application")
etc...etc

saluti


[Modificato da dodo47 25/11/2018 10:42]
Domenico
Win 10 - Excel 2016
Post: 89
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
25/11/2018 11:12

Gent.mo Dodo47,

è mia intenzione realizzare un programmino per invio di comunicazioni ed invio allegati (Fatture e File in PDF) e dalle informazioni in rete, necessita l'inserimento della libreria in VBA di Microsoft Outlook 15.0 che manca.
Dal tuo intervento, noto che si può ovviare inserendo Late binding che a me è nuovo e se gentilmente puoi illustrare con un esempio pratico come realizzare.

Ringrazio e fiducioso, saluto.
Post: 2.033
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
25/11/2018 11:25

te l'ho scritto come impostare (ES):
Sub InviaMail()
Set OutL = CreateObject("Outlook.Application")
OutL.Session.Logon 'forse non necessario
Set mMail = OutL.CreateItem(0)
Destinatario = Range("A1")
Oggetto = Range("A2")
Testo = Range("A3")
With mMail
 .To = Destinatario
 .CC = ""
 .BCC = ""
 .Subject = Oggetto
 .Body = Testo
 .display 'mostra email
 '.Send ' invia email
End With
Set mMail = Nothing
Set OutL = Nothing
End Sub



E comunque leggi qui

https://support.microsoft.com/en-us/help/245115/using-early-binding-and-late-binding-in-automation

[Modificato da by sal 25/11/2018 19:23]
Domenico
Win 10 - Excel 2016
Post: 90
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
25/11/2018 12:34

Gent.mo Dodo47,

mi dispiace, non funziona ancora.
Ho inserito le variabili:
> Dim OutL, mMail As Object, destinatario As Object, Oggetto, testo <
Ho inserito i campi: destinatario-oggetto e testo all'invio mi chiede:
Variale non definita in:
> With mMail
 .to = destinatario <
con il cursore vicino .To

e gli allegati si possono inserire?
scusa per il fastidio, ringrazio e saluto.
Post: 2.034
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
25/11/2018 13:35

ciao
quello che ti ho passato è un vecchio codice, per intenderci funzionante con office 2003.

Probabilmente ci saranno degli aggiustamenti da fare.

Purtroppo non uso più outlook, pertanto non posso testarne la attuale funzionalità.

Ti suggerisco di effettuare ricerche sull'argomento.

La strada è quella.
Si, si possono allegare file.

L'unica cosa che posso fare è quella di allegarti un vecchio lavoro "funzionante" con exc/outl 2003.

Se sai di vba, sicuramente non avrai problemi ad adattarlo.

La procedura invia email a tutti oppure ad un gruppo di indirizzi e gestisce molti parametri compreso l'invio di uno o più allegati.

saluti


Domenico
Win 10 - Excel 2016
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 07:46. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com