Buongiorno a tutti
vorrei essere anche di aiuto ogni tanto, visto che siete una fonte inesauribile di soluzioni e oggi mi sono imbattuto in questo problemino.
dovendo automatizzare l'invio di mail aziendali, mi si è posto il problema di inviare le mail con la firma digitale che ogni utente ha di default su outlook.
io ho risolto così:
Dim obj As New Outlook.Application()
Dim item As Outlook.MailItem
item = obj.CreateItem(Outlook.OlItemType.olMailItem)
With item
.To = "destinatario"
.CC = "x conoscenza"
'a questo punto con display apre la mail come nuova e imposta di default la firma di outlook
.Display()
.HTMLBody = "Testo mail"& item.HTMLBody
.Subject = "oggetto mail"
.Attachments.Add("percorso")
.Send()
End With
mi è piaciuta perchè molto semplice e immediata.
Ciao grazie al forum!!!