[VB.NET] Inviare messaggi a mailing list

[Veronica80]

Originariamente inviato da alka
Io ero sempre nell'ottica di preparare in modo automatico la mail da spedire, corpo incluso.

Si ma col MailTo non si può fare e poi diventa un macello per gestire i log degli invii! Invece col client di posta resta tutto registrato nella posta inviata in automatico!

[gibra]

Originariamente inviato da Veronica80
Si ma col MailTo non si può fare e poi diventa un macello per gestire i log degli invii! Invece col client di posta resta tutto registrato nella posta inviata in automatico!

Idee confuse?

1) Con il protocollo MailTo puoi farlo.
2) il MailTo funziona SOLO con il client di posta predefinito.

Ma almeno hai dato un'occhiata all'esempio di codice che ti ho postato?

[Veronica80]

si scusa mi son espressa male! Volevo dire che col mailTo non posso dare formattazione html (tipo inserire immagini ecc ecc) quindi dovrei usare il namespace mail ma con quello diventa un macello gestire i log, gli invii ecc ecc

[gibra]

Devi specificare in modo chiaro cosa devi/vuoi fare, se no non ci capiamo.
Non vi sono problemi ad inviare messaggi con il Net.Mail, dal punto di vista programmatico.

Se il server SMTP hai limiti imposti dal provider, questi valgono (e possono essere limitanti) a prescindere dal metodo di invio utilizzato.

Per altri problemi, senza vedere il tuo codice, e senza indicazioni precise sull'errore (quale e dove si verifica) non è possibile azzardare alcuna ipotesi, non credi?

[Veronica80]

ok alla fine ho risolto col mailTo.
Alla fine rispecchia benissimo quello che mi serviva! Ovvero la gestione di tutto col client di posta (che è la cosa migliore).

C'è solo un piccolo problema...io lancio il processo così:

System.Diagnostics.Process.Start(strMail)

dove strMail è la stringa mailTo

Per esigenze del server di posta in uscita ho diviso gli invii in blocchi da 97 destinatari, mi spiego meglio:
Il server di posta in uscita non accetta più di 100 destinatari alla volta quindi se io ho 200 destinatari il programma mi apre tot finestre quanti sono i multipli di 97 (in questo caso mi apre 3 finestre: 2 con 97 destinatari e una con i restanti 6).

Tutto questo ovviamente è affidato a un ciclo FOR che mi aggiunge le mail della listview alla stringa mailTo e quando arriva a 97 lancia il processo e passa alla creazione della nuova stringa.

Sul mio pc funziona benissimo però sull'altro pc (+ lento credo sia quello il problema) Mi da un eccezione...temo che il lancio del processo si accavalli al precedente (non essendo il pc abbastanza veloce) perchè se no non mi spiego come sul mio possa funzionare e su quello no!
Vi posto l'eccezione:

************** Testo dell'eccezione **************
System.ComponentModel.Win32Exception: Accesso negato
   in System.Diagnostics.Process.StartWithShellExecuteEx(ProcessStartInfo startInfo)
   in System.Diagnostics.Process.Start()
   in System.Diagnostics.Process.Start(ProcessStartInfo startInfo)
   in System.Diagnostics.Process.Start(String fileName)
   in agendaPCA.frmMailingList.bttSpedisci_Click(Object sender, EventArgs e)
   in System.Windows.Forms.Control.OnClick(EventArgs e)
   in System.Windows.Forms.Button.OnClick(EventArgs e)
   in System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   in System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   in System.Windows.Forms.Control.WndProc(Message& m)
   in System.Windows.Forms.ButtonBase.WndProc(Message& m)
   in System.Windows.Forms.Button.WndProc(Message& m)
   in System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   in System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   in System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

Se il problema fosse questo dovrei trovare il modo di aprire i processi solo una volta che quello precedente è aperto credo..ma non so come ...

[gibra]

L'eccezione la da:
- dove?
- quando?

[Veronica80]

allora...
Non so di preciso dove perchè il pc sul quale da l'eccezione non ha l'ambiente di sviluppo (cosa che ho sul mio pc dove non da nessuna eccezione).

TI spiego brevemente come funziona il codice.

Ho una listView contenente vari indirizzi email (Fai 200) io la ciclo in questo modo:

 Dim strMail As String = "mailto:veronica@miodominio.it?bcc="
  Dim indice As Integer = 0
  Dim numTot As Integer = lstDestinatari.Items.Count
  For Each indirizzo As ListViewItem In lstDestinatari.Items
            indice += 1
            numTot -= 1
            If indice < 98 Then
                Dim strIndirizzo As String = indirizzo.SubItems(1).Text.ToString
                strMail &= strIndirizzo & ","
               If numTot = 0 Then
                    indice = 0
                    strMail = Strings.Left(strMail, Len(strMail) - 1)
                   System.Diagnostics.Process.Start(strMail)
                    strMail = "mailto:" & mittMails & "?bcc="
                End If
            Else
                indice = 0
                strMail = Strings.Left(strMail, Len(strMail) - 1)
                System.Diagnostics.Process.Start(strMail)
                strMail = "mailto:veronica@miodominio.it?bcc="
            End If
        Next

Spero sia comprensibile...in sostanza apro tot finestre di thunderbird necessarie dove piazzo 97 destinatari (per ogni finestra) + il mio indirizzo come iniziale.

[alka]

Nel log dell'errore si parla di accesso negato, quindi direi che il problema va ricondotto all'impossibilità (per qualche motivo legato alla configurazione del PC o a policy locali) di eseguire il comando di invio email (potrebbe anche essere un antivirus che blocca questa azione).

[Veronica80]

eh lo so ma se inserisco meno destinatari funziona tutto...il problema nasce quando diventano parecchi per quello ho pensato all'accavvallamento del process.start()

[Veronica80]

tra l'altro ho notato che se la stringa è troppo lunga non mi inserisce tutti i destinatari
sapevate di sto limite?