mail når tagwall opdateres
Hej...Jeg har en tagwall hvor der skal sendes en mail til en række brugere i en DB, når der bliver tilføjet et nyt tag.
Jeg bruger jmail - og får følgende fejl... Synes jeg har prøvet det ene og det andet - desværre uden held.
case 5
over = Replace(Request.Form("over"), "'", "''")
txt = Replace(Request.Form("txt"), "'", "''")
ini = Replace(Request.Form("ini"), "'", "''")
query = "insert into tagwall (over,txt,link,ini,dato) values ('"& over &"','"& txt &"','"&request.form("link")&"','"& ini &"','"&request.form("dato")&"')"
Conn.execute(Query)
'---------------------------Send mail vedr. nyt indlæg----------------------'
strSQL = "SELECT Email FROM tbl_profil"
Set rs =Conn.Execute(strSQL)
arrEmail = rs.GetRows()
Conn.Close
Set Conn = Nothing
'For num = 0 to Ubound(arrEmail,2)
' Response.Write(arrMail)
'Next
Set objMail = Server.CreateObject("JMail.SMTPMail")
objMail.Silent = True
objMail.ServerAddress = "min.mailserver.dk"
objMail.Sender = "minmail@minmail.dk"
objMail.Subject = "NYT INDLÆG PÅ VIP TAGWALL"
'objMail.FromName = "VIP TAGWALL"
objMail.HTMLBody = "<font face='verdana' size='2'><b>" & Request.form("ini") & "</b> har skrevet nyt indlæg på tagwallen<p>" & vbCrLf &_
"Gå til siden her: <b><a href=http://www.embro.dk/vip94/member.asp><font color='006699'>www.vip94.dk</font></a></b></font>"
For num = 0 to Ubound(arrEmail,2)
objMail.AddRecipient = arrEmail(0, num)
'If objMail.Execute Then
' Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>"
'Else
' Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>"
'End If
objMail.ClearRecipients
Next
Set objMail = Nothing
----------------------------------------
Som det er nu får jeg følgende fejl:
Type mismatch: 'objMail.AddRecipient'
Kan i se hvad jeg gør galt?
