Selezionare il report che si desidera inviare al destinatario. Si seleziona un report utilizzando il seguente codice :
thereport = db.OpenRecordset ( " Select thereport dalla relazione dove id = 2" ) per
Il codice precedente consente di recuperare un rapporto con un ID di 2 .
2
Crea un oggetto di posta elettronica. L'oggetto di posta elettronica è impostato a un'applicazione di Microsoft Outlook . Il codice seguente crea un oggetto di posta elettronica utilizzato per inviare il report tramite Outlook :
app = New Outlook.ApplicationSet email = app.CreateItem ( )
3
l' proprietà di posta elettronica tra cui l' oggetto, il corpo e la relazione di attaccamento accesso . Il codice seguente imposta le proprietà di posta elettronica visibili alla mail destinatario :
email.subject = " rapporto Mattina per 1/1/2010 " email.Recipients.Add " [email protected] " email.Body = " Si prega di consultare il rapporto allegato " email.Attachments.Add thereport , olByValue , 1 , " Morning report "
4
Invia l'email e chiudere gli oggetti . Oggetti di chiusura consente di liberare risorse del computer , tra cui lo spazio di memoria . Il seguente finalizza il codice report di Access :
email.SendSet email = NothingSet app = Niente
software © www.354353.com