I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
pietro09
pietro09
il 7 febbraio 2016 alle 10:40
3.939 messaggi dal 28 gennaio 2003
Salute.
Da una ricerca in rete so (spero di sbagliare) che .NET non riesce a inviare posta con questi parametri:
Parametri di Posta in entrata:   
Server di Posta in entrata    POP3
Indirizzo Server        pop3s.aruba.it
Numero di Porta          995
Tipo di cifratura        SSL/TLS
Autenticazione          Password Normale
  
Parametri di Posta in uscita:   
Server di Posta in uscita    SMTP
Indirizzo Server        smtps.aruba.it
Numero di Porta          465
Tipo di cifratura        SSL/TLS
Autenticazione          Password Normale


volevo chiedere se esiste qualche libreria open source (gratis) pilotabile da .NET che colmi questa disfunzione.

ciao
RispondiQuoting
sspintux
sspintux
il 7 febbraio 2016 alle 12:03
66 messaggi dal 09 febbraio 2005
Ciao,

prova questa http://sourceforge.net/p/netimplicitssl/wiki/Home/
e facci sapere se funziona.
RispondiQuoting
pietro09
pietro09
il 7 febbraio 2016 alle 16:51
3.939 messaggi dal 28 gennaio 2003
Mi occorrerà del tempo per provare, e farò sapere.
Nel frattempo di ringrazio davvero.
Ciao.


ps.
certo non capisco perché non includano questa funzionalità nel framework (mettono tante cose di dubbia utilità...)
RispondiQuoting
pietro09
pietro09
l'8 febbraio 2016 alle 14:17
3.939 messaggi dal 28 gennaio 2003
purtroppo non va; o meglio, sembrava che andasse, ma poi non vedo arrivare posta. Questo il codice:
Private Sub SendEmail()
  Dim mailFrom As String = "mittente" 'mittente
  Dim mailTo As String = "destinatario" 'destinatario
  Dim host = "smtps.aruba.it"
  Dim user = "mittente"
  Dim pass = "***"
  Dim allegato As MimeAttachment = Nothing



  'Generate Message 
  Dim messaggio = New MimeMailMessage()
  messaggio.From = New MimeMailAddress(mailFrom, "Pinco Pallino")
  messaggio.To.Add(mailTo)
  messaggio.To.Add(mailFrom)

  messaggio.Priority = Net.Mail.MailPriority.Normal
  messaggio.Subject = "prova di trasmissione messaggio da programma" 'oggetto
  messaggio.SubjectEncoding = System.Text.Encoding.UTF8
  Dim EncodingWebName As String = messaggio.SubjectEncoding.WebName

  messaggio.BodyEncoding = System.Text.Encoding.UTF8

  'true -> formato html, falso -> formato testo
  messaggio.IsBodyHtml = True

  Dim sb As New StringBuilder()
  sb.Append("<html>")
  sb.Append("<head>")
  sb.AppendFormat("<meta http-equiv=""content-type"" content=""text/html; charset={0}"">", EncodingWebName)
  sb.Append("</head>")
  sb.Append("<body text=""#000099"" bgcolor=""#FFFFFF"">")
  sb.Append("<font size=""+1""><font face=""Courier New"">Prova di invio posta da programma<br><br>àèéìòù<br><br><br></font></font>")

  sb.Append("Il mio messaggio di testo <b>in formato html</b>" & "<hr />" & Me.TextBox_messaggio.Text.Replace(ControlChars.NewLine, "<br />").Replace(ControlChars.Lf, "<br />").Replace(ControlChars.Cr, "<br />"))
  sb.Append("<br />")
  sb.Append("<img alt=""prova.jpg"" src=""cid:image1"" />")

  sb.Append("</body>")
  sb.Append("</html>")


  messaggio.Body = sb.ToString


  'allego un file testo
  allegato = New MimeAttachment(Me.Server.MapPath("allegato.txt"))
  allegato.Name = "file_testo.txt" 'se voglio cambiare nome all'allegato
  messaggio.Attachments.Add(allegato)

  'allego una immagine
  allegato = New MimeAttachment(Me.Server.MapPath("prova.jpg"))
  allegato.Name = "immagine_jpg.jpg" 'se voglio cambiare nome all'allegato
  messaggio.Attachments.Add(allegato)

  'allego un file execel
  allegato = New MimeAttachment(Me.Server.MapPath("Calcolo prestiti1.xls"))
  allegato.Name = "file_excel.xls" 'se voglio cambiare nome all'allegato
  messaggio.Attachments.Add(allegato)




  'Create Smtp Client
  Dim server As New SmtpSocketClient(host, 465)
  server.User = user
  server.Password = pass
  server.SslType = SslMode.Ssl
  server.AuthenticationMode = AuthenticationType.Base64

  'Set a delegate function for call back
  'AddHandler server.SendCompleted, AddressOf compEvent

  server.SendMail(messaggio)


End Sub
RispondiQuoting
pietro09
pietro09
l'8 febbraio 2016 alle 16:06
3.939 messaggi dal 28 gennaio 2003
ok, funziona se si elimina questa istruzione
messaggio.From = New MimeMailAddress(mailFrom, "Pinco Pallino")

va messo:
messaggio.From = New MimeMailAddress(mailFrom)


inoltre non funziona (o io non sono riuscito):
<img alt="prova.jpg"" src="cid:image1" />

ma debbo inserire l'immagine in formato base64 direttamente


per il resto sembra che vada bene


ANCORA GRAZIE DEL SUGGERIMENTO
ciao
RispondiQuoting
sspintux
sspintux
l'8 febbraio 2016 alle 16:25
66 messaggi dal 09 febbraio 2005
Boh!!! io non l'ho mai usata fino ad ora.

Se vuoi prova cosi ( in compEvent dovrebbe riportati info sugli errori)

// applicazione console
// <package id="AIM" version="1.0.2" targetFramework="net45" />
private static void SendEmail()
{
  var mailDest = "mail@destinatario.it";

  var host = "smtps.aruba.it";
  var user = "user"; 
  var pass = "pass";

  var mymessage = new MimeMailMessage();
  mymessage.From = new MimeMailAddress(mailDest);
  mymessage.To.Add(mail);
  mymessage.Subject = "test";
  mymessage.Body = "body";

  var mailer = new MimeMailer(host, 465);
  mailer.EnableImplicitSsl = true;
  mailer.User = user;
  mailer.Password = pass;
  mailer.SslType = SslMode.Ssl;
  mailer.AuthenticationMode = AuthenticationType.Base64;

  mailer.SendCompleted += compEvent;
  mailer.SendMailAsync(mymessage);
}

private static void compEvent(object sender, AsyncCompletedEventArgs e)
{
  if (e.UserState != null)
    Console.Out.WriteLine(e.UserState.ToString());

  Console.Out.WriteLine("is it canceled? " + e.Cancelled);

  if (e.Error != null)
    Console.Out.WriteLine("Error : " + e.Error.Message);
}


HTH
RispondiQuoting
EttoreCT
EttoreCT
il 27 giugno 2017 alle 11:19
1 messaggio dal 14 giugno 2011
Perfetto Grazie,
Era proprio quello che cercavo. Adesso riesco ad inviare mail con aruba e .NET
RispondiQuoting
PierluigiGermano
PierluigiGermano
il 19 gennaio 2023 alle 06:18
1 messaggio dal 19 gennaio 2023
Ciao, ho installato il pacchetto AIM ma non riesco a trovare alcun riferimento da includere (vorrei provare il tuo pezzo di codice per fare il send)
Potresti aiutarmi? Che imports hai utilizzato?
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.