AspMail sammen med FileSystemObjekt

<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.mail.dk"
Mail.From = "test@mail.dk"
Mail.FromName = "email test"
Mail.AddAddress "test@mail.dk"
Mail.AddReplyTo "retur@mail.dk"
Mail.AddAttachment "c:imagestest.gif"

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Get the folder object associated with the directory
Dim objFolder
Set objFolder = objFSO.GetFolder("d:web/adresse.dk/eksempel")


'Loop through the Files collection
Dim objFile
For Each objFile in objFolder.Files
    Mail.AddAttachment objFile.Path
Next


Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing


Mail.Subject = "test mail til tjek"
Mail.Body = "test" & Chr(13) & Chr(10) & _
    "tester mail"

On Error Resume Next
Mail.Send
If Err <> 0 Then
  Response.Write "Error encountered: " & Err.Description
End If
%>

<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.mail.dk"
Mail.From = "test@mail.dk"
Mail.FromName = "email test"
Mail.AddAddress "test@mail.dk"
Mail.AddReplyTo "retur@mail.dk"

Mail.Subject = "test mail til tjek"
Mail.Body = "test" & Chr(13) & Chr(10) & _
    "tester mail"

'------Finder filer--------
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Get the folder object associated with the directory
Dim objFolder, stiTilFilerne
stiTilFilerne = "d:/web/adresse.dk/eksempel"
Set objFolder = objFSO.GetFolder(stiTilFilerne)
'Loop through the Files collection
Dim objFile
For Each objFile in objFolder.Files
  Mail.AddAttachment stiTilFilerne & "/" & objFile.Name
Next
'Clean up!
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing


'---- SEND MAIL ------
On Error Resume Next
Mail.Send
If Err <> 0 Then
  Response.Write "Error encountered: " & Err.Description
End If

Set Mail = Nothing
%>

Sorry, glemte filen

Mail.AddAttachment objFile.Path & "\" & objFile.FileName

HJÆLP jeg får følgende fejl :

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

eksempler/mail.asp, line 13

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Og linie 13 er?

aaaah undskyld :-)

Linie 13 :

Set Mail = Server.CreateObject("Persits.MailSender")

Er Persits.MailSender ikke ældgammel 2.2 syntax, som nu skal være: SMTPsvg.Mailer ?

Det kunne tyde på at din web-server ikke understytter ASPMail...

Har du web-hotel eller egen server?

Aha, jeg tror du forveksler AspEmail med AspMail ? Hvis du bruger AspMail, skal progid være SMTPsvg.Mailer

så skal jeg lave helt om i selve mailen ?
hvordan skal den så se ud, da jeg lavede det om fik jeg fejl i host (linie 14)

AspEmail er fra http://www.persits.com
AspMail er fra http://www.serverobjects.com/products.htm

Set mail = Server.CreateObject ("SMTPsvg.Mailer")

Du kan finde syntaksen her: http://www.serverobjects.com/comp/Aspmail4.htm

eller her: http://www.serverobjects.com/comp/Aspmail3.htm

Afhængig af hvilken version dit webhotel har.

øv nu troede jeg lige at det var der, men ny fejl :
her er koden :
<%
Set msg = Server.CreateObject("SMTPsvg.Mailer")
msg.RemoteHost = "mail.mail.dk"
msg.FromName = "email.dk"
msg.FromAddress = "admin@email.dk"
msg.AddRecipient "Modtageres navn", "admin@email.dk"
msg.Subject = "Emne"
msg.BodyText = "Hele e-mailen - bla bla!"

'------Finder filer--------
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Get the folder object associated with the directory
Dim objFolder, stiTilFilerne
stiTilFilerne = "d:/web/adresse.dk/eksempel"
Set objFolder = objFSO.GetFolder(stiTilFilerne)
'Loop through the Files collection
Dim objFile
For Each objFile in objFolder.Files
  Mailer.AddAttachment stiTilFilerne & "/" & objFile.Name
Next
'Clean up!
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing


if not msg.SendMail then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.Response
else
Response.Write "Mailen er korrekt afsendt."
end if

Set msg = nothing
%>

Her er fejlen :

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/forhandler/brugere/mail.asp, line 31


linie 31 = 

Mailer.AddAttachment stiTilFilerne & "/" & objFile.Name


HJÆLP please

hvis jeg udskifter linie 31 med:
Response.Write objFile.Name & "<br>"

skriver den fint navnene på filerne, så stien er god nok, men den kan bare ikke attache filerne til mailen ?

Hvor er din side hostet ? Attachments er ikke muligt i Trial/Evaluation versionen, men kun på den registrerede version. Hvis du prøver på en udvikler maskine eller hosten kører med en ikke-registreret version, virker det ikke.

Og i øvrigt skal du bruge:

Mailer.AddAttachment stiTilFilerne & "\" & objFile.Name

Ikke "/" som i eagleeye's forslag:

Mailer.AddAttachment stiTilFilerne & "/" & objFile.Name

Det kan dog være for at undgå at Eksperten fjerner backslash at han har anvendt forward slash :-)

Dit mail object hedder msg og ikke mailer:

msg.AddAttachment stiTilFilerne & "/" & objFile.Name

Selv om vi nok alle burde have set den, er der altså noget med det "syn som en ørn" i dit handle :-)

aaaaahhhh fu... "skoven for bare træer" eller hvad er det man siger

1000 tak for hjælpen

håber det er ok at jeg giver "ørnen" pointene

Hvis du mener at jeg slet ikke bidrog med noget, er det vel ok. Men jeg er nu ikke enig i den betragtning :-(

opretter lige et spm med 100 point til dig tmceu

tmceu se her:
http://www.eksperten.dk/spm/221063