Avatar billede jacobs1 Nybegynder
03. maj 2004 - 10:53 Der er 19 kommentarer og
1 løsning

Aspmail indsæt en variabel i stedet for en streng.

Jeg er i gang med at lave et nyhedsbrev der skal tage alle e-mails i databasen og sende en mail ud til dem, jeg bruger aspMail.

problemet er at msg.AddRecipient sætningen ikke virker????

<%

StrMail = Response.Write rs("e-mail")

Set msg = Server.CreateObject("SMTPsvg.Mailer")
msg.RemoteHost = "pasmtp.tele.dk"
msg.CharSet = 2
msg.EncodeHeader "8bit"

msg.FromName = StrMail
msg.FromAddress = "info@smartdevices.dk"
msg.AddRecipient "Bla bla",StrMail

msg.Subject = "Smartdevices.dk"
msg.BodyText = "Så er Smartdevices i luften. bla bla" & VbCrLf & VbCrLf
if not msg.SendMail then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.Response
else
Response.Write "Din mail er nu sendt!"
end if

Set msg = nothing %>
Avatar billede tzag_dk Nybegynder
03. maj 2004 - 10:59 #1
Du skal lave denne her om:
StrMail = Response.Write rs("e-mail")

til:
StrMail = rs("e-mail")
Avatar billede keysersoze Ekspert
03. maj 2004 - 11:00 #2
StrMail = rs("e-mail")

du skal kun bruge response.write såfremt det er noget der skal udskrives på skærmen. Derudover skal du være 100% sikker på at det er en korrekt og valid email StrMail kommer til at indeholde
Avatar billede jacobs1 Nybegynder
03. maj 2004 - 11:01 #3
dur det så også nede i msg.AddRecipient sætningen?

for når jeg skriver StrMail = "mj@hotmail.com" virker det hellere ikke
Avatar billede keysersoze Ekspert
03. maj 2004 - 11:06 #4
hvilken fejl kommer der?
Avatar billede tzag_dk Nybegynder
03. maj 2004 - 11:08 #5
Prøv sådan her:

Mailer.AddRecipient "Bla bla", ""& rs("e-mail") &""
Avatar billede jacobs1 Nybegynder
03. maj 2004 - 11:09 #6
lige nu skriver den ingen fejl. altså den skriver "mailen er sendt" men det gør den ikke????
Avatar billede tzag_dk Nybegynder
03. maj 2004 - 11:12 #7
Har du forsøgt med det jeg skrev?
Avatar billede jacobs1 Nybegynder
03. maj 2004 - 11:13 #8
jeg har forsøgt med
msg.AddRecipient "Smartdevices",""& StrMail &""
da jeg ikke har lavet løkken og databaseoptrækkene i nu.. Mærkeligt
Avatar billede jacobs1 Nybegynder
03. maj 2004 - 11:19 #9
jo det kan godt være at det virker nu! den er bare utrolig langsom om at få sendt eller modtage mailen.
Avatar billede keysersoze Ekspert
03. maj 2004 - 11:20 #10
prøv dette;

<%
Set msg = Server.CreateObject("SMTPsvg.Mailer")
msg.RemoteHost = "pasmtp.tele.dk"
msg.CharSet = 2
msg.EncodeHeader "8bit"

msg.FromName = "test"
msg.FromAddress = "info@smartdevices.dk"
msg.AddRecipient "test","kim@soze.dk"
msg.Subject = "Smartdevices.dk"
msg.BodyText = "Så er Smartdevices i luften. bla bla" & VbCrLf & VbCrLf
if not msg.SendMail then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.Response
else
Response.Write "Din mail er nu sendt!"
end if

Set msg = nothing
%>

bare vær opmærksom på at der til tider _kan_ være forsinkelse på samt at afsendermailen mange gange SKAL tilhøre domænet
Avatar billede keysersoze Ekspert
03. maj 2004 - 11:21 #11
ja - for sent :)

Om du skriver

msg.AddRecipient "Smartdevices",""& StrMail &""

eller

msg.AddRecipient "Smartdevices",StrMail

Er det samme - så der er ingen grund til at bruge den første version da det bare er ekstra tegn
Avatar billede tzag_dk Nybegynder
03. maj 2004 - 11:22 #12
Eller dette :-)

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName  = ""& rs("e-mail") &""
Mailer.FromAddress= "info@smartdevices.dk"
Mailer.RemoteHost = "pasmtp.tele.dk"
Mailer.AddRecipient "Bla bla", ""& rs("e-mail") &""
Mailer.Subject    = "Smartdevices.dk"
Mailer.BodyText  = "Så er Smartdevices i luften. bla bla" & VbCrLf & VbCrLf &""
if Mailer.SendMail then
  Response.Write "Din mail er nu sendt!"
else
  Response.Write "Mailen kunne ikke afsendes grundet:<br>" & Mailer.Response
end if
Set Mailer = nothing
%>
Avatar billede jacobs1 Nybegynder
03. maj 2004 - 11:23 #13
okay nu har jeg prøvet det! men det kan godt være at den bare er lidt langsom :) husk at læg et svar!
Avatar billede tzag_dk Nybegynder
03. maj 2004 - 11:24 #14
Hvad fik du det til at virke med? :-)
Avatar billede keysersoze Ekspert
03. maj 2004 - 11:26 #15
svar

jeg har modtaget mail fra dig :) så skal du bare huske at fjerne min mail igen

tzag.com >> der er absolut ingen grund til de dobbelte anførselstegn - du kan sagtens nøjes med rs("e-mail")
Avatar billede tzag_dk Nybegynder
03. maj 2004 - 11:27 #16
keysersoze >

ok, men der er bare nogle gange at det fejler hvis man ikke gør det.
Det er bedre at prøve om det skulle være fejlen :-)
Avatar billede jacobs1 Nybegynder
03. maj 2004 - 11:28 #17
msg.AddRecipient "Smartdevices",""& StrMail &"" men det er svært at sige? for jeg har prøvet så mange forskellige ting nu, så det kan også godt være det er nogle af de mails jeg har sendt med "Bla bla", "mj@hotmail.com" der først kommer nu ?? hehe
Avatar billede keysersoze Ekspert
03. maj 2004 - 11:30 #18
tzag.dk >> det tror jeg ikke på - jeg har aldrig nogensinde set det fejle og jeg kan heller ikke se grunden til det. Eneste forskel er at du med

rs("e-mail")

direkte tilgår ASP-strengen hvorimod du med

""& rs("e-mail") &""

først stopper ASP'en for derefter at starte den igen
Avatar billede tzag_dk Nybegynder
03. maj 2004 - 11:38 #19
keysersoze >

Det må du selv om... Jeg har bare været ude for det før!
Avatar billede keysersoze Ekspert
03. maj 2004 - 11:47 #20
jamen så glæder jeg mig da til at se et eksempel :)
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