problem med dimac Jmail 4.5
Jeg har et problem med at sende mail med jmail. Når jeg tilføjer modtagere som bcc virker det ikke, men det virker hvis de samme tilføjes som cc eller to.Er der nogen som har oplevet det samme eller ved hvorfor den ikke sender mails med bcc modtagere?
koden er som følger:
Dim mySmartUpload
Dim file
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
Dim jmail
Set jmail = Server.CreateOBject( "JMail.Message" )
jmail.From = "-----"
jmail.Subject = mySmartUpload.Form("mailsubject")
jmail.Body = mySmartUpload.Form("mailbody")
For each file In mySmartUpload.Files
If not file.IsMissing Then
File.SaveAs("/" & tempLocation & "/" & File.FileName)
JMail.AddAttachment Server.MapPath("/" & tempLocation) & "\" & File.FileName
FileNameTitle = File.FileName
End If
Next
If not Err.Number = 0 then
Response.Redirect("/admin/index.asp?msg=Fejl i vedhæftet filer.<br>Filen er for stor, eller typen er ulovlig.<br> Mailen blev ikke sendt!")
End if
Dim lsSQL
If mySmartUpload.Form("group") = "all" Then
lsSQL = "SELECT Email FROM users "
End If
If mySmartUpload.Form("group") = "members" Then
lsSQL = "SELECT Email FROM users WHERE Member = 1"
End If
Set mySmartUpload = nothing
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(Server.MapPath(tempLocation) & "\" & FileNameTitle) then
fs.DeleteFile(Server.MapPath(tempLocation) & "\" & FileNameTitle)
If fs.FileExists(Server.MapPath(tempLocation) & "\" & FileNameTitle) then
msg = "kunne ikke slette temp fil"
End if
End if
Set fs = nothing
Dim loRs
Set loRs = Server.CreateObject("ADODB.Recordset")
Set loRs = loConn.Execute(lsSQL)
loRs.MoveFirst
Do While Not loRs.EOF
'jmail.AddRecipient(loRs.Fields("Email").Value)
jmail.AddRecipientBCC(loRs.Fields("Email").Value)
loRs.MoveNext
Loop
jmail.Send ("localhost")
