[VB6] Funzionamento molto anomalo di vbSendMail.dll

[giustavalla]

E' da 3 giorni che impazzisco !
Il seguente codice spedisce una email utilizzando vbSendMail.dll

 Set poSendMail = New clsSendMail
         poSendMail.SMTPHost = SMTP
         poSendMail.From = EmailNoReply
         poSendMail.FromDisplayName = NomeNoReply
         poSendMail.Recipient = EmailX
         poSendMail.Subject = "RELAZIONE DI SOPRALLUOGO"
         messaggio = "Con la presente si comunica ..."
         poSendMail.Message = messaggio
         poSendMail.AsHTML = True
         poSendMail.Send

Preciso che SMTP vale "mail.tin.it" e che l'unica variabile è EmailX
Funziona perfettissimamente tranne che per le email con dominio gmail.com.
Ma anche questa affermazione non è strettamente vera perchè in 3 altri punti del programma questo stesso codice funziona anche con email di gmail.com.
In un primo momento pensavo che questo codice in quel certo form non svolgesse il suo compito a causa di interazioni con Word ed il suo modello ad oggetti e/o con PDFCreator (che usati congiuntamente creano le relazioni di sopralluogo). Allora ho separato queste funzioni ma ... nulla.
Il bello (si fa per dire) è che nella stessa finestra in cui opera questo codice ho inserito un pulsante di prova con questo codice

Private Sub Command1_Click()
   Dim S As String
   Dim EmailX As String
   Dim DataStampa As String
   Dim RagioneSocialeStampata As String
   Dim messaggio As String
   EmailX = "   xxxxxxx   @gmail.com"
   DataStampa = "01/01/2015"
   RagioneSocialeStampata = "DITTA DI PROVA"
   Set poSendMail = New clsSendMail
   poSendMail.SMTPHost = SMTP
   poSendMail.From = EmailNoReply
   poSendMail.FromDisplayName = NomeNoReply
   poSendMail.Recipient = EmailX
   S = "PROVA RELAZIONE DI SOPRALLUOGO - " & Format$(DataStampa, "D") & " " & UCase(Format$(DataStampa, "mmmm")) & " " & Format$(DataStampa, "YYYY")
   poSendMail.Subject = S
   messaggio = "Con la presente si comunica che la relazione di sopralluogo relativa alla ditta <b>" & RagioneSocialeStampata & "</b> è ora disponibile sul sito <b>www.medartservizi.it</b> nell'area riservata alla quale &egrave; possibile accedere con le credenziali fornite precedentemente.<BR>"
   poSendMail.Message = messaggio
   poSendMail.AsHTML = True
   poSendMail.Send
End Sub

E funziona perfettamente, spedendo l'email a xxxxxxxxxxx @gmail.com. Non è quindi colpa del particolare form.
In tutti i casi (email spedite e email non spedite) la funzione Sub poSendMail_SendSuccesful() indica Debug.print "poSendMail_SendSuccesful()" e la Sub poSendMail_SendFailed non entra in funzione.
So di chiedere molto ma non so proprio più che pesci pigliare.
Grazie anticipatamente

[giustavalla]

Ho continuato nella sperimentazione ed ho appurato che il responsabile del mancato invio di email aventi dominio gmail non è Word o PDFCreator ma qualcos’altro, che non so individuare.

Il semplicissimo programma :

Private WithEvents poSendMail As vbSendMail.clsSendMail
Const SMPT = “mail.tin.it”
Const EmailNoReply = “…….”
Const NomeNoReply = “…….”
 
Sub Command1_click
   Dim Linea(1 To 3) As String
   Linea(1) = "…..@libero.it"
   Linea(2) = "………@gmail.com"
   Linea(3) = "…..@alice.it"
   For i = 1 To 3
      EmailX = Linea(i)
      Spedisci EmailX, "SOGGETTO " & CStr(i), "Messaggio " & CStr(i) + " da " & EmailX
   Next i
End sub 
  
Private Sub Spedisci(Destinatario, Soggetto, Messaggio)
   Set poSendMail = New clsSendMail
   poSendMail.SMTPHost = SMTP
   poSendMail.From = EmailNoReply
   poSendMail.FromDisplayName = NomeNoReply
   poSendMail.Recipient = Destinatario
   poSendMail.RecipientDisplayName = Destinatario
   poSendMail.Subject = Soggetto
   poSendMail.Message = Messaggio
   poSendMail.Send
   Set poSendMail = Nothing
End Sub

Invia la prima e la terza email ma non la seconda, quella con gmail.
Ho effettuato numerosissime modifiche al codice sopra riportato, senza alcun successo.
Qualcuno ha qualche idea su come intervenire ?