Notifikationer

Markér alle som læst Log ud

theranger Nybegynder

17. marts 2002 - 16:15 Der er 13 kommentarer og
1 løsning

Hjælp til vedhæftet fil i Jmail

Mit problem er, at når jeg bruger nedenstående kode, så bliver filen godt nok vedhæftet, men i mit Outlook program kan jeg ikke i oversigtsbilledet se en clips ud for mailen. Hvad kan jeg gøre?

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

msg.Logging = True
msg.Silent = True
msg.From = RS("nr")&"@analyst.dk"
msg.FromName = "The Analyst"
msg.Charset = "iso-8859-1"
msg.AddRecipientBCC RS("email")
msg.Subject = Var_Titel &"("&RS("email")&")"
Var_Indhold = strResult & "<a href=http://www.analyst.dk/main.asp?E-mail="&RS("email")&"&Action=Afmeld>Tryk her for at afmelde dig</a>"
msg.AppendHTML(Var_Indhold)
mailingliste: "& Var_Antal & vbCrLf & vbCrLf & "Tryk her for at afmelde dig: http://www.analyst.dk/main.asp?E-mail="&RS("email")&"&Action=Afmeld"& vbCrLf & vbCrLf & Var_Indhold
msg.AddAttachment Request.ServerVariables("APPL_PHYSICAL_PATH") & "kvl.pdf"
If msg.Send("linux2.scannet.dk") Then
Response.Write Var_Tal&" - Messge Send to: "&RS("email")&" "
Else
Response.Write "Messge NOT Send to: "&RS("email")&" "
End If

Set msg = nothing

Synes godt om

Slettet bruger

17. marts 2002 - 16:19 #1

Har du prøvet med:
msg.AddAttachment Server.MapPath("kvl.pdf")
i stedet for:
msg.AddAttachment Request.ServerVariables("APPL_PHYSICAL_PATH") & "kvl.pdf"
?

Synes godt om

theranger Nybegynder

17. marts 2002 - 16:21 #2

Det hjælper ikke!

Synes godt om

medions Nybegynder

17. marts 2002 - 18:02 #3

Prøv med:
msg.AttachFile Server.MapPath("kvl.pdf")

//>Rune

Synes godt om

medions Nybegynder

17. marts 2002 - 18:04 #4

UPS undskyld, det var til komponenten CDONTS.NewMail...

Hmm... jeg har dette script... - og det virker her hos mig...:

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = strMailServer

' Email konfig
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"

' Email indhold

JMail.Sender = strAfsender
JMail.Subject = request("header")
JMail.AddRecipient request("email")
JMail.Body = request("tekst")

' 1 = høj
' 3 = normal
' 5 = lav

JMail.Priority = 3

' Vedhæft fil

If Session("Attach") <> "" then
JMail.AddAttachment Server.MapPath(Session("Attach"))
End if

' Afsendelse af email

JMail.Execute
set JMail = nothing

//>Rune

Synes godt om

theranger Nybegynder

17. marts 2002 - 19:33 #5

Første linie er ikke ens:
Server.CreateObject("JMail.SMTPMail")
Server.CreateOBject( "JMail.Message" )

Og jeg kan ikke sende nogen mail, hvis jeg ændrer den fra det nuværende til dit forslag.

Synes godt om

medions Nybegynder

17. marts 2002 - 19:36 #6

??? hmm... prøv lige med dette så... -hvis ikke du kan sende en mail via. det eks. jeg giver dig nu, så er det din komponent der er noget galt med...!:

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.domain.dk"
JMail.Priority = 1
JMail.Sender = "afsender@email.adr"
JMail.AddRecipientEx "modtager@email.adr", "Modtagers navn"
Jmail.AddRecipientCC "andenmodtager@email.adr"
Jmail.AddRecipientBCC "skjultmodtager@email.adr"
JMail.Subject = "Dette er emne linien.."
JMail.Body = "Her skriver du din besked..."
JMail.Execute
Set JMail = Nothing
%>

//>Rune

Synes godt om

theranger Nybegynder

17. marts 2002 - 19:50 #7

Det virker fint ved en kombination af dine to eksempler, men stadig ingen clips i Outlook! Altså i oversigtbilledet.

Synes godt om

medions Nybegynder

17. marts 2002 - 19:56 #8

Hmm.. SKAL din løsning være i JMail?

//>Rune

Synes godt om

theranger Nybegynder

17. marts 2002 - 19:59 #9

Hvad ellers?

Synes godt om

medions Nybegynder

17. marts 2002 - 20:02 #10

CDONTS.NewMail

//>Rune

Synes godt om

medions Nybegynder

17. marts 2002 - 20:04 #11

Så kunne du gøre sådan her:

Set mailObj = CreateObject("CDONTS.NewMail")

' Email konfig

' mailObj.BodyFormat = 0
' mailObj.MailFormat = 0

' Email indhold

mailObj.From = strAfsender
mailObj.To = request("email")
mailObj.Subject = request("header")
mailObj.Body = request("tekst")

' 0 = lav
' 1 = normal
' 2 = høj

mailObj.Importance = importance

' Vedhæft fil

If Session("Attach") <> "" then
mailObj.AttachFile Server.MapPath(Session("Attach"))
End if

' Afsendelse af email

mailObj.Send
Set mailObj = Nothing

//>Rune

Synes godt om

theranger Nybegynder

17. marts 2002 - 20:59 #12

Jeg har kun Jmail på min server! Scannet

Synes godt om

theranger Nybegynder

17. marts 2002 - 20:59 #13

Men du får point alligevel som tak for indsatsen. :-)

Synes godt om

medions Nybegynder

17. marts 2002 - 21:01 #14

ok..

Thx 4 Poinz
//>Rune

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS