Da web ho recuperato una funzione che mi consente di inviare mail in access.
L'ho adottata in quanto mi era comprensibile l'interpretazione.
Nell'usarla però mi sono accorto che ha una importante limitazione.
In pratica mi consente di inviare la mail con al massimo un allegato.
Domanda agli esperti: è possibile introdurre una piccola modifica per passare magari un array al posto di una singola variabile? oppure un carattere separatore nella stringa degli allegati riconosciuto da Outlook ? ( per raggirare l'ostacolo)
Io personalmente non mi ritengo all'altezza.
grazie
antonio cuomo
Il codice è questo:
Dim docpng, Oggetto, destinatario, msg As String
docpng = Me!Allegati_mail
Oggetto = Me!Oggetto_mail
destinatario = Me!Destinatario_mail
msg = Me!Testo_mail
Call modOutlook_SendMail(docpng, Oggetto, destinatario, msg)
Sub modOutlook_SendMail(ByVal docpng As String, ByVal Oggetto As String, ByVal destinatario As String, ByVal msg As String)
Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = destinatario
.Subject = Oggetto
.HTMLBody = msg
' se la variabile docpng è valorizzata, allora allega l'attachment
If Len(docpng) > 4 Then
.Attachments.Add (docpng)
End If
.Send
End With
MsgBox "Email Inviata!"
Exit Sub
email_error:
MsgBox "Si è verificato un errore! :( " & vbCrLf & "Il messaggio di errore è: " & Err.Description
Resume Error_out
Error_out:
End Sub