CDO yahoogroups mail problem

[Savas Ates]

im sending email with these codes

i call my sub with two forms


call mailgonder ("(e-mail address removed)","(e-mail address removed)","ok","ok")

call mailgonder
("(e-mail address removed)","(e-mail address removed)","ok","ok")

first one works properlt but second is not.. (second is on queue ?) Why ?
how can i send mail to a yahoogroups.. (to show mail moderators approve..)

sub mailgonder(kime,kimden,msj,baslik)

sch = "https://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "mail.starbilisim.com"
.update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = kimden
.To = kime
.Subject = baslik
.HTMLBody = msj
on error resume next
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing

end sub