Sv: Skicka fil med CDOSYS

Skicka fil med CDOSYS

Postades av 2004-06-01 10:05:59 - Tyronne Engström, i forum asp - allmänt, Tråden har 4 Kommentarer och lästs av 837 personer

hej!

Jag vill skicka ett mail med en pdf som attachment. Jag har använt exemplet som finns in artikel från Microsoft.

Det som händer att mailet går iväg, men den bifogade filen kommer inte med. Inga felmeddelanden visas.. Här är koden från formuläret som skickar mailet

<code>

toAddress = "per.ostergren@comvena.com"
toAddress3 = strEmail
toAddress2 = "wwxkampanj-subscribe@webworx.se"
SMTPServer = "62.95.17.22"
fromAddress = "admin@webworx.se"
fromAddress2 = strEmail
inclAttachment = "webworx.pdf"
subject = "Intresseanmälan från WebWorX-kampanj"

'Avsluta varje rad med vbCrLf (enter) Ändras det som är skrivet inom citat om annat språk önskas

Body = Body & "<html><body>"
Body = Body & "Jag vill ha mer information om WebWorX: " & Now() & " "
Body = Body & "Namn: " & strNamn & " "
Body = Body & "Efternamn: " & strEfternamn & " "
Body = Body & "Företag: " & strCompany & " "
Body = Body & "Telefon: " & strPhone & " "
Body = Body & "E-mail: " & strEmail & " "
Body = Body & "</body></html>"

Body2 = Body2 & "<html><body>"
Body2 = Body2 & "Här kommer din länk: "
Body2 = Body2 & "Webworx.pdf "
Body2 = Body2 & "Tack för visat intresse "
Body2 = Body2 & "Comvena AB"
Body2 = Body2 & "</body></html>"

'Skicka Mail
' till från ämne attachment text server (skicka som text)
SendMail toAddress, fromAddress2, subject, Body, inclAttachment, SMTPServer, true

</code>

Här är koden som skapar objektet

<code>
Function SendMail(iToAddress, iFromAddress, iSubject, iBody, iAttachment, iSMTPServer, iIsHTML)
On Error Resume Next
Dim iMsg
Dim iConf
Dim Flds

Set iMsg = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = iSMTPServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20
.Update
End With

iMsg.Configuration = iConf
iMsg.To = iToAddress
iMsg.From = iFromAddress
iMsg.Subject = iSubject
If iIsHTML = True Then
iMsg.HTMLBody = iBody
Else
iMsg.TextBody = iBody
End If
iMsg.AddAttachment iAttachment
iMsg.Send

If Err.number <> 0 Then
ErrorMessage = "Ett fel inträffade: " & Err.description & " " & Err.source
Err.Clear
SendMail = ErrorMessage
Else
SendMail = true
End if

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
End Function

</code>

Filen Webworx.pdf ligger i samma katalog som de andra filerna. Vi har även provat med en absolut sökväg.

Vi använder MSServer 2003, IIS 6

/Pinala

Svara