Newsgroup: it.comp.appl.access
Titolo: invio appuntamento tramite access ad outlook a destinatario mail

Buon giorno a tutti.
nel mio database per la gestione delle non conformità, io dovrei inviare un appuntamento ad alcuni colleghi, via mail.
ho provato a inserire un appuntamento nel mio account tramite access e funziona. Ma come posso inviarlo a destinatari di posta? 
chiedo aiuto...
grazie mille a chi vorrà rispondermi! 
Luca

It happens that Lomba formulated :

Se ti serve altro (collegamenti e scambi vari con Outlook)
ti mando tutto il file di Access, altrimenti:
===============================
Private Sub Command10_Click()
'
' Reference;   Microsoft Scripting Runtime
'
Dim OL As New Outlook.Application, NewMail As MailItem
Dim i As Integer, S As String
Dim AttachmentArray(1 To 3) As String
Dim FSO As New FileSystemObject, TextStream As Object
Dim eMailMessage As String, SendAccount As String
Dim ReceiveAccount As String
 
'---  Definizioni  ----------------------------------
'Testo/Titolo/Oggetto del messaggio
eMailMessage = "Quando i Romani avevano le palle." & vbCrLf & _
               "(Si nos coleos haberemus)"
 
' File contenente il corpo del messaggio
Set TextStream = FSO.OpenTextFile("D:\Test\aa0.txt")
Do Until TextStream.AtEndOfStream
    S = S & vbCrLf & TextStream.ReadLine
Loop
 
' Tre file costituenti gli attachment
AttachmentArray(1) = "D:\Test\aa1.txt"
AttachmentArray(2) = "D:\Test\aa2.txt"
AttachmentArray(3) = "D:\Test\aa3.txt"
 
' Indirizzo DAL quale si trasmette
SendAccount = "
cmp...@gmail.com
"
 
' Indirizzo AL quale si trasmette
ReceiveAccount = "
brun...@libero.it
" ' "
bruno.c...@tin.it
"
'----------------------------------------------
 
On Error GoTo SendErr
Set NewMail = OL.CreateItem(olMailItem)
With NewMail
    .SendUsingAccount = Session.Accounts(SendAccount)
    .To = ReceiveAccount
    .CC = "
brun...@libero.it
" '; 
bruno.c...@tin.it
"
    '.BCC = "
brun...@libero.it
; 
bruno.c...@tin.it
"
    .Subject = "Prova eMail da Access"
    .Body = eMailMessage & vbCrLf & S
    .ReadReceiptRequested = True ' False
    For i = 1 To 3
        .Attachments.Add AttachmentArray(i)
    Next
    .Send
End With
MsgBox "Sent without Errors!"
 
Exit_Sub:
    Exit Sub
 
SendErr:
    MsgBox "Error n. " & Err.Number & vbCrLf & Err.Description
    Resume Exit_Sub
 
End Sub
==================================
 
Bruno

 It happens that Lomba formulated :
 



A me, e sicuramente a molti altri, interessa molto quel "collegamenti e 
scambi vari con Outlook" poiche' su molte postazioni operatore Outlook 
ormai e' un client ben consolidato, ed io aggiungo pure che e' un ottimo 
strumento molto flessibile e robusto
E quindi oltre al banale 'invio di email' sarebbe utile sfruttarlo un 
pochetto di piu', collegandolo col gestionale principale e consentendo 
di eseguire tutte le operazioni per cui Outlook non e' stto progettato
E' possibile darci un'occhiata?

RobertoA laid this down on his screen :
 
To you and Lomba:
https://1drv.ms/u/s!AvTaMfd5-b2o2zIjOOehO1f0znW0?e=nd9XYG
 
 
Spero di non deluderne due in un sol colpo...
 
Bruno

CIao Bruno
intanto ti ringrazio. farò tesoro del tuo db che mi hai inviato. di sicuro qualche funzione la "rubo...." :-) 
il problema però rimane, nel senso che non sono riuscito a capire come inviare un appuntamento tramite access via mail.
ci deve essere una soluzione. Forse sono io che non sono molto esperto a non capire. Aiuto raga!!!!! :-)
io riesco a mettere un appuntamento sul mio pc tramite access, è relativamente "facile" passatemi il termine.
il problema è inviarlo a un utente via mail, da access. 
vi spiego, a me servirebbe che dopo una certa operazione in una maschera di access, partisse un promemoria a un destinatario. cosi poi lui fa quello che deve fare di sua competenza.
l'operazione adesso è manuale,  nel senso che l'addetto alla gestione si occupa di inviare un appuntamento "come un memo" alla persona destinataria, ecco io vorrei farlo con bel pulsantone con access su "su click"...
ce la faremo? 
aiuto
Luca. 



Obrigado

buon giorno a tutti
ho scritto dopo vari tentativi (recuperati anche grazie a voi e altri contributi), questa routine, ma ch poi non funziona al punto "  .attachement.Add olAppt" .... qualcuno può aiutarmi? grazie mille
 
Private Sub Comando306_Click()
Dim olApp As Outlook.Application
Dim oNS As Outlook.NameSpace
 
Set olApp = CreateObject("outlook.Application")
Set olNs = olApp.GetNamespace("MAPI")
Set CalFolder = olNs.GetDefaultFolder(olFolderCalendar)
Set olAppt = CalFolder.Items.Add(olAppointmentItem)
 
'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"
        '.display
        .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) 
'MsgBox olAppt
'Set objMsg = Outlook.Application
With objMsg
  .to = "
blab...@hotmail.it
" 'an example...
  .Subject = "Questo è il soggetto"
  .body = "I miei appunti"
  .attachement.Add olAppt
  .display
End With
End with
End Sub


cosi cambia qualcosa?
 
With objMsg
   .to = "
blab...@hotmail.it
" 'an example...
   .Subject = "Questo è il soggetto"
   .body = "I miei appunti"
   Set myAttachments = objMsg.Attachments
   myAttachments.Add "c:\temp.msg"
   .display
End With
 
ref:
https://learn.microsoft.com/en-us/office/vba/api/outlook.attachments.add
 
 
BFS
 
 
 


dimenticavo il tuo save cambialo con .SaveAs "c:\temp.msg"
 
BFS

ciao a tutti, vi ringrazio per la fattiva collaborazione, nel frattempo ho risolto cosi.... funziona... se vi può servire!
 
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