ciao,
volevo sapere se è possibile simulare un click in modo automatico in questo codice, che praticamente mi invia un certo numero di mail:


codice:
For i = 0 To List2.ListCount - 1
        DoEvents
        List2.ListIndex = i
        .To = List2.List(i)
        .From = Text2.Text  
        .Subject = Text3.Text  
        .TextBody = Text4.Text  
        If Label4 = "" Then
        Label8.Caption = "Invio in corso attendere... " & List2.List(i)
        Timer1.Enabled = True
        ProgBarXP1.WaitBarStyle = True
        DoEvents
        .Send
        ProgBarXP1.WaitBarStyle = False
        Timer1.Enabled = False
        Label8.Caption = "Invio terminato"
        MsgBox "messaggio inviato con successo a: " & List2.List(i), vbInformation
        'Praticamente ad ogni invio effettuato dovrei simulare il click 
        Else
        .AddAttachment Label4.Caption
        Label8.Caption = "Invio in corso attendere... " & List2.List(i)
        ProgBarXP1.WaitBarStyle = True
        Timer1.Enabled = True
        DoEvents
        .Send
        Label8.Caption = "Invio terminato"
        ProgBarXP1.WaitBarStyle = False
        Timer1.Enabled = False
        MsgBox "messaggio + allegato inviato con successo a: " & List2.List(i), vbInformation
        
        End If
        Next
        End If
          
    End With
    
    Set msg = Nothing
    Set conf = Nothing
    Set flds = Nothing

Shape1.BackColor = &HE0E0E0