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

Prova questo metodo per inoltrare un appuntamento come allegato.

Private Sub Test()

Dim olApp As Outlook.Application

Set olApp = CreateObject("outlook.Application")

Set olAppt = olApp.CreateItem(olAppointmentItem)

With olAppt

'Define calendar item properties 

    .Start = Now() 

    .End = Now() 

    .Subject = "Hello " & Time 

   ' . Location = "me" 

    .Body = "Take care of this ASAP" 

    .BusyStatus = olBusy 

    .ReminderMinutesBeforeStart = 15 

    .ReminderSet = True 

    .Categories = "Needs attention" 

End With 

Set objMsg = olAppt.ForwardAsVcal

---

---

With objMsg

.To = "****@here.com"**

.Subject = "This is the subject"

.Body = "My notes"

.Display

---

End With

---

End Sub

Answer 2

La migliore ipotesi, non riesce a trovare l'appuntamento che hai creato - o ha "dimenticato" di cosa si trattava.

La macro per creare una convocazione di riunione funziona?

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

Answer 3

ho risolto cosi....

Private Sub Comando307_Click()

Dim myItem As Object

Dim myRequiredAttendee, myOptionalAttendee, myResourceAttendee As outlook.Recipient

Set myItem = outlook.CreateItem(olAppointmentItem)

myItem.MeetingStatus = olMeeting

myItem.Subject = "PROVA"

'myItem.Location = "Conf Rm All Stars"

myItem.Start = #1/12/2022 1:30:00 PM# 'Now()

myItem.Duration = 90

Set myRequiredAttendee = myItem.Recipients.Add("------@hotmail.it")

myRequiredAttendee.Type = olRequired

'Set myOptionalAttendee = myItem.Recipients.Add("Kevin Kennedy")

'myOptionalAttendee.Type = olOptional

'Set myResourceAttendee = myItem.Recipients.Add("Conf Rm All Stars")

'myResourceAttendee.Type = olResource

'myItem.Display

myItem.Send

End Sub

Answer 4

buon giorno Diane.

questo è il risultato.

si ferma qui...

Answer 5

Set olAppt = CalFolder.Items.Add(olAppointmentItem)

Prova questo - Dim olApp come Outlook.Application Dim oNS come Outlook.NameSpace

Set olApp = CreateObject("outlook. Applicazione") Set olNs = olApp.GetNamespace("MAPI") Imposta CalFolder = olNs.GetDefaultFolder(olFolderCalendar) Set olAppt = CalFolder.Items.Add(olAppointmentItem)

Oppure usa questo - Dim olApp come Outlook.Application

Set olApp = CreateObject("outlook. Applicazione") Set olAppt = olApp.CreateItem(olAppointmentItem)

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