Tuba Posted May 20, 2013 at 09:41 PM Report #508140 Posted May 20, 2013 at 09:41 PM (edited) Olá. Estou a fazer um jogo e um dos tópicos a fazer é o envio de email aos dois jogadores do mesmo. Esses emails são pedidos no inicio do jogo com uma inputbox. Este é o código que tenho agora, mas que só envia a um dos jogadores, como faço para enviar aos dois? Dim mail As New MailMessage() 'endereço ................. mail.From = New MailAddress("omeuemail@gmail.com") mail.To.Add(emailjog1) 'texto .............................. mail.Subject = "Jogo do Conhecimento" mail.Body = "Obrigada pela sua participação!" 'enviar a mensagem ............................... Dim client As New SmtpClient("smtp.gmail.com") 'servidor de email smtp.gmail.com , smtp.hotmail.com smtp.sapo.pt client.Credentials = New Net.NetworkCredential("omeuemail@gmail.com", "xxxxxxx") 'substituir xxxxxx pela senha respectiva client.EnableSsl = True ' False client.Port = 587 'gmail:587 hotmail:465 sapo:25 client.Timeout = 30000 'aumentar se necessário Try client.Send(mail) MsgBox("Mensagem enviada!") Catch ex As Exception MsgBox("Impossivel enviar mail!") End Try Edited May 20, 2013 at 10:07 PM by ribeiro55
ribeiro55 Posted May 20, 2013 at 10:10 PM Report #508149 Posted May 20, 2013 at 10:10 PM Repete a linha mail.To.Add(emailjog1) Mas com o outro email. Sérgio Ribeiro "Great coders aren't born. They're compiled and released""Expert coders do not need a keyboard. They just throw magnets at the RAM chips"
Tuba Posted May 20, 2013 at 10:29 PM Author Report #508153 Posted May 20, 2013 at 10:29 PM Depois acabei por fazer isso, muito fácil realmente. Obrigado! 😉
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now