inviare appuntamento outlook a indirizzo email tramite ACCESS

Question

buon giorno a tutti.

volevo sapere se è possibile inviare tramite ACCESS, da un pulsante di comando, un appuntamento a un indirizzo email.

mi spiego: io ho un database che gestisce delle non conformità e vorrei ricordare a un mio collega che tra 3 giorni lui deve fre qualcosa in merito.

ho provato a gestire gli appuntamenti sul mio pc e fin qui tutto ok, sempre tramite access.

ma non so come si fa ad allegare, inviare, un appuntamento tramite mail da access con un bel codice...

qualcuno può gentilmente aiutarmi?

grazie mille in anticipo a chi vorrà rispondere! :-)

Luca.

Answer 1

Buona sera Mimmo e buona sera anche Diane che ringrazio tantissimo.

purtroppo la riga evidenziata in rosso grassetto corsivo, genera un errore 91 di cui sotto metto uno screenshot.

...non riesco a farlo funzionare... se riesci dammi anche tu qualche dritta, te ne sarei grato! :-)

Luca.

Private Sub Comando306_Click()

Dim olApp As Outlook.Application

Dim olAppt As Outlook.AppointmentItem

Dim CalFolder As Outlook.MAPIFolder

Dim objMsg As Outlook.MailItem

                            'Quindi usa questo - 

Set olAppt = CalFolder.Items.Add(olAppointmentItem)

With olAppt

'Definire le proprietà degli elementi del calendario 

    .Start = Now() 

    .End = Now() 

    .Subject = "Ciao" 

   ' .Location = "me" 

    .body = "Prenditi cura di questo al più presto" 

    .BusyStatus = olBusy 

    .ReminderMinutesBeforeStart = 15 

    .ReminderSet = True 

    .Categories = "Ha bisogno di attenzione" 

    .Save 

End With 

Set objMsg = olApp.CreateItem(olMailItem)

'Quindi crea l'e-mail e aggiungila come allegato a un nuovo messaggio.

'Set objMsg = Application.CreateItem(olMailItem) 'give me an error

'Set objMsg = Outlook.Application

With objMsg

.to = "******@hotmail.it" 'an example...

.Subject = "Questo è il soggetto"

.body = "I miei appunti"

.attachement.Add olAppt

.display

End With

End Sub

Answer 2

Ciao Luca,

hai risolto con i suggerimenti di Diane?

Hai bisogno di altri chiarimenti?

Mimmo

Answer 3

È necessario DIM gli oggetti nella parte superiore e impostare un riferimento alla libreria di oggetti di Outlook in Access.

Dim olApp come Outlook.Application Dim olAppt As Outlook.AppointmentItem Dim CalFolder come Outlook.MAPIFolder Dim objMsg come Outlook.Mailitem

Quindi usa questo - Set objMsg = olApp.CreateItem(olMailItem)

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

Answer 4

buona sera Diane, intanto grazie mille (thank you so much!), aiuto ... (please help me :-) )

nella riga (on the line)

Set olAppt = CalFolder.Items.Add(olAppointmentItem)

mi da un errore: (Access give me an error message)

• Errore di Run-time '424':
• Necessario oggetto

anche la riga

Set objMsg = Application.CreateItem(olMailItem)

sul grassetto (on the bold caracter) mi da errore, "errore di compilazione, impossibile trovare il metodo o il membro dei dati" (compile error, cannot find method or data member)

questo è il codice da me inserito (this is my routine, as a copy of your)

Private Sub Comando397_Click()

Dim olAppt

Set olAppt = CalFolder.Items.Add(olAppointmentItem)

With olAppt

'Definire le proprietà degli elementi del calendario 

    .Start = Now() 

    .End = Now() 

    .subject = "Ciao" 

   ' .Location = "me" 

    .body = "Prenditi cura di questo al più presto" 

    .BusyStatus = olBusy 

    .ReminderMinutesBeforeStart = 15 

    .ReminderSet = True 

    .Categories = "Ha bisogno di attenzione" 

    .Save 

End With 

'Quindi crea l'e-mail e aggiungila come allegato a un nuovo messaggio.

Set objMsg = Application.CreateItem(olMailItem) 'give me an error

'Set objMsg = Outlook.Application

With ohout

.to = "******@mail.it" 'an example...

.subject = "Questo è il soggetto"

.body = "I miei appunti"

.attachement.Add olAppt

.display

End With

End Sub

cosa c'è di errato? where is the error?

grazie mille a chi vorra rispondere!

Answer 5

Ciao Lucalombardini

Sono Diane, un MVP di Microsoft 365 Apps & Services e cercherò di aiutarti oggi.

Hai esperienza di programmazione di Access? Puoi farlo da Outlook, accedendo al db di Access o inviando da Access. In entrambi i casi, devi fare riferimento al modello a oggetti delle altre app.

Ho un codice di esempio che utilizza Excel come sorgente, che mostra le basi. https://www.slipstick.com/developer/create-appointments-spreadsheet-data/

C'è anche codice di esempio in questo thread nella comunità tecnica https://techcommunity.microsoft.com/t5/access/create-outlook-meeting-from-access-vba/m-p/3065038

Leggerete i campi del data base per creare l'appuntamento- Set olAppt = CalFolder.Items.Add(olAppointmentItem)

Con olAppt
'Definire le proprietà degli elementi del calendario . Start = nome campo . Fine = nome campo . Oggetto = nome del campo . Posizione = nome campo . Corpo = "Prenditi cura di questo al più presto" . BusyStatus = olBusy . ReminderMinutesBeforeStart = 15 . ReminderSet = True . Categorie = "Ha bisogno di attenzione" . Salvare Termina con

Quindi crea l'e-mail e aggiungila come allegato a un nuovo messaggio. Set objMsg = Application.CreateItem(olMailItem)

Con objMsg . A = "email@address" . Soggetto = "Questo è il soggetto" . Corpo = "I miei appunti" & vbcrlf & vbcrlf & obj. . Allegati.Add olAppt . Esporre use . Invia per inviarlo automaticamente

Termina con

--Diane

Disconoscimento: Slipstick.com è un sito che gestisco come Microsoft MVP e il contenuto è molto più accurato e pertinente di una ricerca generale su Internet. Mentre il sito è in inglese, ci sono opzioni di traduzione sotto la casella di ricerca.

Restituisci alla comunità. Aiuta la prossima persona che ha questo problema indicando se questa risposta ha risolto il tuo problema. Fai clic su Sì o No di seguito.

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.