COMO CONTAR NUMRO DE ARROBAS DENTRO DE UM TEXBOX
Seguinte meu host só permite mandar 500 email por hora, entao preciso contar quantos emails estao dentro do texbox, alguem pode me ajudar ?
Sds,
Mito
Sds,
Mito
Como esta essa estrutura dentro do TextBox?
é um email atraz do outro separado por : e gostaria que quando seisse do tex contasse quantos email rem nele ou quatas @
Dim Mtz
Dim Total as Integer
Mtz=Split(texbox,[Ô]:[Ô])
Total=Ubound(Mtz)
Dim Total as Integer
Mtz=Split(texbox,[Ô]:[Ô])
Total=Ubound(Mtz)
Function NumerosEmail(CampoEmail As String, Separador) As Integer
Dim Mtz
Mtz = Split(CampoEmail, Separador)
NumerosEmail = UBound(Mtz) + 1
End Function
pra usar é
msgbox NumerosEmail(campotexto,[Ô]:[Ô])
Eu tenho o mesmo problema. Resolvi enviando UM EMAIL POR VEZ e contando cada vez que envio.
Ao chegar na quantidade desejada, faço um delay aguardando o tempo para enviar novamente.
Ao chegar na quantidade desejada, faço um delay aguardando o tempo para enviar novamente.
Obrigado pessoal funcionou legal
Sds,
Mito
Sds,
Mito
Problema resolvido, tópico fechado e amigo pontuado.
Obrigado.
Obrigado.
Tópico encerrado , respostas não são mais permitidas