Hallo,
Ik zit met een probleem.
Ik wil een e-mail vanuit een asp.net website met behulp van vb.net versturen.
bijlages enzo werkt allemaal alleen ik wil de e-mail zowel naar mijzelf als naar een gebruiker sturen, via de website wordt de gebruiker's e-mail ingevoerd.
Het probleem zit hem in de SMTPserver omdat deze er (bij mij) maar op 1 SMTPserver reageerd.
Dus ik kan of de e-mail naar mijzelf sturen of naar de gebruiker, maar ik wil naar beiden.
Ik heb de gebruikersinvoer gesplitst in substrings zodat ik de smtp extensie weet, dus bijv: "planet.nl"
en dan probeer ik via mail of smtp (omdat dit in 80-90 % gebruikt wordt ) de e-mail te versturen.
Dat is het probleem niet, alleen ik wil d.m.v. "CC" de e-mail naar een 2e persoon versturen.
omdat ik maar 1 SMTPserver kan opgeven, geeft ie dus een foutmelding dat ie het e-mail adres niet kent, is ook logisch omdat die een andere smtp extensie heeft.
Dit is mijn code:
Dim objMessage As New MailMessage
Dim objAttach As MailAttachment
Dim smtp As Mail.SmtpMail
Dim emailadres, emailadres2 As String
Dim Start As Integer
emailadres = txtEmail.Text
Start = InStr(emailadres, "@", CompareMethod.Text)
emailadres2 = Mid(emailadres, (Start + 1), (Len(emailadres) - Start))
Try
objMessage.From = "Pietje"
objMessage.To = emailadres
objMessage.Cc = "mijn email@adres.nl"
objMessage.Subject = "Test bericht"
objMessage.Body = "Vanuit een ASP pagina een email versturen met bijlages"
objMessage.BodyFormat = MailFormat.Text
objAttach = New MailAttachment("locatie")
objMessage.Attachments.Add(objAttach)
Try
smtp.SmtpServer = "mail." & emailadres2
SmtpMail.Send(objMessage)
Catch
End Try
Try
smtp.SmtpServer = "smtp." & emailadres2
SmtpMail.Send(objMessage)
Catch
End Try
MsgBox("E-mail is succesvol verstuurd!", MsgBoxStyle.Information, "ENQ_INHOLLAND")
Catch objExcept As Exception
MsgBox("Fout bij het versturen van de e-mail: " & Chr(13) & Err.Description, MsgBoxStyle.Critical, "ENQ_INHOLLAND - Fout bij Email-en")
Exit Sub
End Try
Heeft iemand hier een oplossing voor ? of een andere betere oplossing waarbij dat wel mogelijk is ?
ik hoor het graag
Ik zit met een probleem.
Ik wil een e-mail vanuit een asp.net website met behulp van vb.net versturen.
bijlages enzo werkt allemaal alleen ik wil de e-mail zowel naar mijzelf als naar een gebruiker sturen, via de website wordt de gebruiker's e-mail ingevoerd.
Het probleem zit hem in de SMTPserver omdat deze er (bij mij) maar op 1 SMTPserver reageerd.
Dus ik kan of de e-mail naar mijzelf sturen of naar de gebruiker, maar ik wil naar beiden.
Ik heb de gebruikersinvoer gesplitst in substrings zodat ik de smtp extensie weet, dus bijv: "planet.nl"
en dan probeer ik via mail of smtp (omdat dit in 80-90 % gebruikt wordt ) de e-mail te versturen.
Dat is het probleem niet, alleen ik wil d.m.v. "CC" de e-mail naar een 2e persoon versturen.
omdat ik maar 1 SMTPserver kan opgeven, geeft ie dus een foutmelding dat ie het e-mail adres niet kent, is ook logisch omdat die een andere smtp extensie heeft.
Dit is mijn code:
Dim objMessage As New MailMessage
Dim objAttach As MailAttachment
Dim smtp As Mail.SmtpMail
Dim emailadres, emailadres2 As String
Dim Start As Integer
emailadres = txtEmail.Text
Start = InStr(emailadres, "@", CompareMethod.Text)
emailadres2 = Mid(emailadres, (Start + 1), (Len(emailadres) - Start))
Try
objMessage.From = "Pietje"
objMessage.To = emailadres
objMessage.Cc = "mijn email@adres.nl"
objMessage.Subject = "Test bericht"
objMessage.Body = "Vanuit een ASP pagina een email versturen met bijlages"
objMessage.BodyFormat = MailFormat.Text
objAttach = New MailAttachment("locatie")
objMessage.Attachments.Add(objAttach)
Try
smtp.SmtpServer = "mail." & emailadres2
SmtpMail.Send(objMessage)
Catch
End Try
Try
smtp.SmtpServer = "smtp." & emailadres2
SmtpMail.Send(objMessage)
Catch
End Try
MsgBox("E-mail is succesvol verstuurd!", MsgBoxStyle.Information, "ENQ_INHOLLAND")
Catch objExcept As Exception
MsgBox("Fout bij het versturen van de e-mail: " & Chr(13) & Err.Description, MsgBoxStyle.Critical, "ENQ_INHOLLAND - Fout bij Email-en")
Exit Sub
End Try
Heeft iemand hier een oplossing voor ? of een andere betere oplossing waarbij dat wel mogelijk is ?
ik hoor het graag