Buongiorno a tutti,
per mandare la mail volevo usare (imparare ad usare) il codice che trovate sotto.
Sto facendo un file Access per registrare eventuali visita che avvengono iin azienda.
Funziona in modo molto sempice: Il visitatore arriva in azienda, si registra indicando nome, cognome, il referente per la sua visita, riceve un numero che funge da codice ed effettua la registrazione. Effettua l'incontro e quando la sua visita è conclusa, si dichiara con il numero ricevuto in entrata ed esce.
Nelle fasi di ingresso ed uscita, volevo mandare in entrata una mail al referente ed alla reception avvisando che è arrivato il Sig tal dei tali…., e in uscita, una mail alla reception avvisando che tal dei tali è uscito all'ora x.
Per mandare la mail in uscita del visitatore, queste due righe sotto mi vanno in errore e non riesco a recuperare alcune informazioni per completare la mail da spedire.
es: il nome della persona presente in reception, che si trova nella tabella UltimoInUscita, Il nome del visitatore che si trova sempre in UltimoInUscita, il cognome, la mil del referente e le mail
strMsg = strMsg & "<p>" & "Spett. " & [Forms]![UltimoInUscita]![Reception] & ","
strMsg = strMsg & "<br /><br />" & "ti comunico che " & [Forms]![UltimoInUscita]![Nome] & " " & [Forms]![UltimoInUscita]![Cognoome] & " " & " è uscito alle ore " & [Forms]![UltimoInUscita]![OraUscita] & ". </p>"
Per l'ingresso del visitatore, come mail, non ho ancora fatto niente perchè mi sono bloccato con l'uscita….
Quello che volevo capire è come scrivere correttamente nel codice vba il riferimento ai campi di access.
Potete aiutarmi?
Grazie.
Public Sub Mail()
Dim OutApp As Object ' Late binding
Dim OutMail As Object ' Late binding
Dim strMsg As String ' Contiene il testo del messaggio
Dim strDest As String ' Contiene l'indirizzo email
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0) 'Creo mail vuota
strMsg = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>"
strMsg = strMsg & "<html xmlns='http://www.w3.org/1999/xhtml'>"
strMsg = strMsg & "<body>"
strMsg = strMsg & "<p>" & "Spett. " & [Forms]![UltimoInUscita]![Reception] & ","
strMsg = strMsg & "<br /><br />" & "ti comunico che " & [Forms]![UltimoInUscita]![Nome] & " " & [Forms]![UltimoInUscita]![Cognoome] & " " & " è uscito alle ore " & OraUscita & ". </p>"
strMsg = strMsg & "</body>"
strMsg = strMsg & "</html>"
strDest = "Mittente"
With OutMail
.to = strDest
.cc = ""
.BCC = ""
.Subject = "Uscita Visitatore"
.HTMLBody = strMsg
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub