Salve a tutti, avrei bisogno di inviare con VBA una e-mail contenente un collegamento ad un file, il codice usato è il seguente
il problema è che il collegamento mi viene visualizzato come testocodice:Set objmail = CreateObject("CDO.Message") Set objConfig = CreateObject("CDO.Configuration") With objConfig .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "imap" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 1000 .Fields.Update End With Set objmail.Configuration = objConfig objmail.From = "protocollo" objmail.To = txtDestinatario objmail.Subject = "Segnalazione protocollo" objmail.Fields("urn:schemas:httpmail:importance").Value = 2 objmail.Fields.Update objmail.htmlbody = "Archiviato file protocollo numero:" & txtProtocollo & " in " & txtPercorso & txtNomeFile objmail.Send Set objmail = Nothing
Qualcuno sa come fare?
Grazie a tutti

Rispondi quotando