Avatar billede zamiel Nybegynder
14. september 2007 - 09:09 Der er 4 kommentarer og
1 løsning

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")
Avatar billede Slettet bruger
14. september 2007 - 09:55 #1
en mulighed kunne være at du hiver det samme ud af din kilde med adresse to gange... prøv at rette dette her:

loRs.MoveFirst
Do While Not loRs.EOF
    'jmail.AddRecipient(loRs.Fields("Email").Value)
    jmail.AddRecipientBCC(loRs.Fields("Email").Value)
    loRs.MoveNext
Loop

til:

loRs.MoveFirst
Do While Not loRs.EOF
emailadresse = loRs.Fields("Email").Value
    jmail.AddRecipient(emailadresse)
    jmail.AddRecipientBCC(emailadresse)
    loRs.MoveNext
Loop

\Dan
Avatar billede zamiel Nybegynder
15. september 2007 - 17:11 #2
det lille ' tegn betyder det er en kommentar i ASP

så den linie bliver sprunget over når scriptet kører
Avatar billede The Real Yoda Juniormester
15. september 2007 - 17:55 #3
kunde det være fordi du ikke har en modtager.. og kun har BCC modtagere ?

prøv at smide dig selv som modtager.. så burde det virke
Avatar billede zamiel Nybegynder
25. september 2007 - 16:37 #4
det har jeg også prøvet uden held desværre :(
Avatar billede zamiel Nybegynder
05. oktober 2007 - 11:37 #5
lukket
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester