4 svar · 318 visningar · startad av nille99
hur skickar man flera mail på en gång med objMail?
<%
Set objMail = Server.CreateObject( "CDONTS.NewMail" )
objMail.To = "test@hotmail.com"
objMail.From = "test@fff.org"
objMail.Subject = "Information från fff.org"
objMail.Body = "Hej Mottagare" & vbcrlf & vbcrlf & "Du har fått ett informationsbrev från Http://www.fff.org"
objMail.Host = "mailout.one.com"
objMail.Send
Set objMail = Nothing
%>
Lägger till fler i adressfältet som är semikolonseparerat.
Sen kan vi ju också påminna att mailkomponenten inte heter objmail, utan CDONTS...
Tack det fungerade
en till liten fråga
Där det står hej Mottagare
vill jag att det tex står hej kalle
jag har en sträng med namnen kalle;sara;eva;mats
hur gör jag att den väljer kalle och tar bort kalle; från strängen?
Var får du kalle ifrån?
Om det är från din databas så får du loopar ut den och skickar ett mail per loop:
Do until RecSet.EOF
'......
objMail.Body = "Hej " & RecSet("FirstName") & vbcrlf & vbcrlf & "Du har fått ett informationsbrev från Http://www.fff.org"
'... skickar mail
Recset.MoveNext
Loop