Vedhæft fil via JMail

http://www.dimac.se/websites/dimac/website/products/w3JMail/{C7EFB42E-5C6C-49D4-91B7-00C7E9388A96}?exId={836D4DB9-C289-46DC-A722-71DB1D085558}

Det virker ikke....jeg bruger ASP-Upload.....ikke den der w3!

JMail.AddAttachment "c:\webserver\yourdomain\htdocs\pix\myphoto.jpg"

jmarkling:

Hmmm - og hvad så når det kommer fra et formularfelt af typen "FILE"?

Ja, den var straks værre...

I alle de online mail-systemer jeg har prøvet. hotmail, wanadoo etc. skal man først uploade filen til serveren før det kan lade sig gøre.
Så du skal først have filen uploadet til serveren. Med FileSystemObject metoden. gem derefter navnet (stien på filen)i en variabel og så vedhæft den bagefter.
sti = ?
JMail.AddAttachment sti

Har følgende kode:

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverWriteFiles = False
sti = Server.MapPath("./../newsletter/") & "\"
Upload.Save sti

email = Upload.Form("email")

If email = "Test" Then
    sql = "SELECT * FROM Test"
    Set rs = Connect.Execute(sql)
    hilsen = "Kære"
    strSlut = "Klik ind på http://www.jupiter.scanbox.com/frames_dk for at se nyhedsbrevet."
    strNoRes = "-Svar venligst ikke på denne mail-"
End if

If email = "Danmark" Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM Jupiter_club_dk", Connect, 1, 3
    hilsen = "Kære"
    strSlut = "Klik ind på http://www.jupiter.scanbox.com/frames_dk for at se nyhedsbrevet."
    strNoRes = "-Svar venligst ikke på denne mail-"
End if

If email = "Norge" Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open "SELECT * FROM Jupiter_club_no", Connect, 1, 3
    hilsen = ""
    strSlut = "Klik ind på http://www.jupiter.scanbox.com/frames_no for at se nyhedsbrevet."
    strNoRes = "-Svar venligst ikke på denne mail-"
End if

If email = "Sverige" Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open "SELECT * FROM Jupiter_club_se", Connect, 1, 3
    hilsen = ""
    strSlut = "Klik ind på http://www.jupiter.scanbox.com/frames_se for at se nyhedsbrevet."
    strNoRes = "-Svar venligst ikke på denne mail-"
End if

If email = "Finland" Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open "SELECT * FROM Jupiter_club_sf", Connect, 1, 3
    hilsen = "Dear"
    strSlut = "Click in at http://www.jupiter.scanbox.com/frames_sf to see the news letter."
    strNoRes = "-Please do not reply on this mail-"
End if

If email = "England" Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open "SELECT * FROM Jupiter_club_uk", Connect, 1, 3
    hilsen = "Dear"
    strSlut = "Click in at http://www.jupiter.scanbox.com/frames_uk to see the news letter."
    strNoRes = "-Please do not reply on this mail-"
End if

subj = Upload.Form("header")
tekst = replace(Upload.Form("tekst"), VbCrLf, VbCrLf)

fil = upload.form("fil")
'Response.Write fil
'Response.End

do while not (rs.bof or rs.eof)

Set msg = Server.CreateObject("JMail.Message")

msg.Logging = True
msg.Silent = True

msg.From = "benteb@Scanbox.Com"
msg.FromName = "Jupiter Webmaster"
msg.AddRecipient rs("E_mail")
msg.Subject = subj
msg.Body = tekst
msg.Body = hilsen & " " & rs("Navn") & VbCrLf & VbCrLf & msg.Body & VbCrLF & VbCrLf & VbCrLf &"----------------------------------------" & VbCrLf & strSlut & VbCrLf & VbCrLf & strNoRes
msg.AddAttachment fil

If not msg.Send("10.1.1.32") Then
    Response.Write "<pre>" & msg.log & "</pre>"
Else
    Response.Write "Beskeden er sendt!"
End if

rs.MoveNext
loop

Set JMail = Nothing

Response.Redirect("news_letter_ok.asp")

Men får følgende fejl:

jmail.Message error '8000ffff'

Cannot open file

/admin/news_send.asp, line 80

Fandt en løsning - har nu lavet følgende:

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "dsn_name"

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverWriteFiles = False
sti = Server.MapPath("./../newsletter/") & "\"
Upload.Save sti

Set fil = Upload.Files("letter")
    If fil is nothing Then
        fil1 = ""
    Else
        fil1 = fil.ExtractFileName
    End if
email = Upload.Form("email")
filSti = sti & fil1

'Response.Write filSti
'Response.End

If email = "Test" Then
    sql = "SELECT * FROM Test"
    Set rs = Connect.Execute(sql)
    hilsen = "Kære"
    strSlut = "Klik ind på http://www.jupiter.scanbox.com/frames_dk for at se nyhedsbrevet."
    strNoRes = "-Svar venligst ikke på denne mail-"
End if

If email = "Danmark" Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM Jupiter_club_dk", Connect, 1, 3
    hilsen = "Kære"
    strSlut = "Klik ind på http://www.jupiter.scanbox.com/frames_dk for at se nyhedsbrevet."
    strNoRes = "-Svar venligst ikke på denne mail-"
End if

If email = "Norge" Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open "SELECT * FROM Jupiter_club_no", Connect, 1, 3
    hilsen = ""
    strSlut = "Klik ind på http://www.jupiter.scanbox.com/frames_no for at se nyhedsbrevet."
    strNoRes = "-Svar venligst ikke på denne mail-"
End if

If email = "Sverige" Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open "SELECT * FROM Jupiter_club_se", Connect, 1, 3
    hilsen = ""
    strSlut = "Klik ind på http://www.jupiter.scanbox.com/frames_se for at se nyhedsbrevet."
    strNoRes = "-Svar venligst ikke på denne mail-"
End if

If email = "Finland" Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open "SELECT * FROM Jupiter_club_sf", Connect, 1, 3
    hilsen = "Dear"
    strSlut = "Click in at http://www.jupiter.scanbox.com/frames_sf to see the news letter."
    strNoRes = "-Please do not reply on this mail-"
End if

If email = "England" Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open "SELECT * FROM Jupiter_club_uk", Connect, 1, 3
    hilsen = "Dear"
    strSlut = "Click in at http://www.jupiter.scanbox.com/frames_uk to see the news letter."
    strNoRes = "-Please do not reply on this mail-"
End if

subj = Upload.Form("header")
tekst = replace(Upload.Form("tekst"), VbCrLf, VbCrLf)

do while not (rs.bof or rs.eof)

Set msg = Server.CreateObject("JMail.Message")

msg.Logging = True
msg.Silent = True

msg.From = "benteb@Scanbox.Com"
msg.FromName = "Jupiter Webmaster"
msg.AddRecipient rs("E_mail")
msg.Subject = subj
msg.Body = tekst
msg.Body = hilsen & " " & rs("Navn") & VbCrLf & VbCrLf & msg.Body & VbCrLF & VbCrLf & VbCrLf &"----------------------------------------" & VbCrLf & VbCrLf & strNoRes
msg.AddAttachment filSti

If not msg.Send("10.1.1.32") Then
    Response.Write "<pre>" & msg.log & "</pre>"
Else
    Response.Write "Beskeden er sendt!"
End if

rs.MoveNext
loop

Set JMail = Nothing

Response.Redirect("news_letter_ok.asp")
%>

jmarkling:

Pointene er dine! ;0)

Hovsa - får stadig følgende fejl:

jmail.Message error '8000ffff'

Cannot open file D:\www\jupiter.scanbox.com\newsletter\

/admin/news_send.asp, line 80

Linie 80 er

msg.AddAttachment filSti

Bruger en fast sti til filen istedet - pointene er stadig dine! ;0)

takker...