Condividi tramite

Creare collegamento da celle foglio excel con calendario Microsoft office outlook.

Anonimo
2014-10-29T08:43:00+00:00

Buongiorno a tutti,

ho creato un foglio excel dove dove vado ad archiviare tutte le pratiche del mio ufficio, ora ho la necessità di  collegare per ogni singola pratica un  collegamento con il calendario di outlook in modo tale da poter inserire un promemoria  che mi dovrà apparire alla scadenza che io prefisserò.

Esiste un modo per far interagire excel con il calendario, già esistente di outlook?

Come potrei procedere?

Attendo i Vs. preziosi consigli.

Salvo

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

Risposta accettata dall'autore della domanda

  1. Anonimo
    2014-11-03T09:58:16+00:00

    Ciao Salvatore,

    Come punto di partenza prova qualcosa del genere:

    • Fai clic dx sulla linguetta del foglio
    • Seleziona l'opzione Visualizza Codice
    • Incolla il seguente codice:

    =========>>

    Option Explicit

    '--------->>

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

        Dim Rng As Range

        Const myCells As String = "A2:A10"

        Set Rng = Me.Range(myCells)

        If Not Intersect(Rng, Target) Is Nothing Then

            Cancel = True

            Call Tester

        End If

    End Sub
    '<<=========

    • Alt-IM per inserire un nuovo modulo di codice
    • Nel nuovo modulo vuoto, incolla il seguente codice:

    '=========>>

    Option Explicit

    '--------->>

    Public Sub Tester()

        Dim olApp As Object

        Dim olNS As Object

        Dim olAppointment As Object

        Const olAppointmentItem As Long = 1

        On Error Resume Next

        Set olApp = GetObject(, "Outlook.Application")

        If olApp Is Nothing Then

            Set olApp = CreateObject("Outlook.Application")

        End If

        On Error GoTo XIT

        If Not olApp Is Nothing Then

            Set olNS = olApp.GetNamespace("MAPI")

            olNS.Logon

            Set olAppointment = olApp.CreateItem(olAppointmentItem)

            With olAppointment

                .Start = Range("A1").Value

                .Subject = Range("D1").Value

                .Display

            End With

        End If

    XIT:

        Set olAppointment = Nothing

        Set olNS = Nothing

        Set olApp = Nothing

    End Sub
    '<<=========

    • Alt-Q per chiudere l'editor di VBA e tornare a Excel.
    • Alt-F8 per aprire  la finestra di gestione delle macro
    • Seleziona Tester | Esegui

    Per aprire  il promemoria, fai doppio clic su  una cella nell'intervallo A2:A10.

    ===

    Regards,

    Norman

    La risposta è stata utile?

    30+ persone hanno trovato utile questa risposta.
    0 commenti Nessun commento

4 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2014-11-03T10:39:01+00:00

    Grazie mille Norman sei stato gentilissimo!!!

    La risposta è stata utile?

    1 persona ha trovato utile questa risposta.
    0 commenti Nessun commento
  2. Anonimo
    2014-10-29T09:33:50+00:00

    Buongiorno a tutti,

    ho creato un foglio excel dove dove vado ad archiviare tutte le pratiche del mio ufficio, ora ho la necessità di  collegare per ogni singola pratica un  collegamento con il calendario di outlook in modo tale da poter inserire un promemoria  che mi dovrà apparire alla scadenza che io prefisserò.

    Esiste un modo per far interagire excel con il calendario, già esistente di outlook?

    Come potrei procedere?

    Attendo i Vs. preziosi consigli.

    Salvo 

    E' possibile utilizzando il VB di Excel.

    Qui diversi esempi:

    La risposta è stata utile?

    1 persona ha trovato utile questa risposta.
    0 commenti Nessun commento
  3. Anonimo
    2014-11-03T08:01:13+00:00

    Buongiorno a tutti

    mi sono bloccato su questo passaggio, chi mi può aiutare? 

    Grazie ancora

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2014-10-30T10:20:58+00:00

    Buongiorno,

    ho dato un'occhiata al link proposto, sinceramente non sono molto esperto di VBA, il mio foglio è cosi composto:

    Colonna "A" Colonna "B" Colonna "C" Colonna "D"
    Data Corrispondenza Mittente Destinatario Oggetto

    il mio intento è quello che una volta inserta la data nella colonna "A"  posso cliccare su di essa e farsi che mi si apra il calendario in outlook in modo tale da  creare il relativo promemoria.

    come posso procedere?

    Grazie per la gentile attenzione.

    Salvo

    La risposta è stata utile?

    0 commenti Nessun commento