email reply

[petervie]

hi

i have a simple page asking the user his info. In reply i send a mail with
some info to this person

how can i add also a .jpg r .bmp logo into this mail?

code hereafter

many thx
peter

<%
'de nodige variabelen
Dim Mail
Dim sMessageText
dim mailadres

'aanmaken van de ASPemail component
Set Mail = Server.CreateObject("Persits.Mailsender")
'het adres van de mailserver
Mail.Host = "localhost"
'meegeven van het emailadres van de zender
Mail.From = request("email0")
'meegeven van de naam van de zender
Mail.FromName = request("naam0")
'meegeven van het emailadres van de bestemmeling
Mail.AddAddress "(e-mail address removed)"
'onderwerp van de mail
Mail.Subject = "Een website bezoeker wil graag de nieuwsbrief ontvangen : "
+ request("naam0")
'opmaken van het bericht
sMessageText = "Deze persoon is te bereiken op het volgende telefoonnummer :
" + request("tel0") & vbCrLf &vbCrLf
sMessageText = sMessageText & "emailadres is : "
sMessageText = sMessageText & request("email0")& vbCrLf &vbCrLf
sMessageText = sMessageText & "adresgegevens zijn : "
sMessageText = sMessageText & request("straat0")
sMessageText = sMessageText & " ,"
sMessageText = sMessageText & request("gemeente0")
sMessageText = sMessageText & " "
sMessageText = sMessageText & request("postcode0")
Mail.Body = sMessageText
'versturen van de email
Mail.Send

Set Mail = Server.CreateObject("Persits.Mailsender")
'het adres van de mailserver
Mail.Host = "localhost"
'meegeven van het emailadres van de zender
Mail.From = "(e-mail address removed)"
'meegeven van de naam van de zender
mailadres=request("email0")
Mail.AddAddress request("email0")
'onderwerp van de mail
Mail.Subject = "Beste " + request("naam0") + ", proficiat met je kortingsbon
van 10%!"
'opmaken van het bericht
sMessageText = "Bedankt om in te schrijven op onze nieuwsbrief."
sMessageText = sMessageText & vbCrLf &vbCrLf
sMessageText = sMessageText & "Als welkomstgeschenk krijgt u een kortingsbon
van 10%*"
sMessageText = sMessageText & vbCrLf &vbCrLf
sMessageText = sMessageText & "Druk deze email en geef hem af bij je
volgende aankoop."
sMessageText = sMessageText & vbCrLf &vbCrLf
sMessageText = sMessageText & vbCrLf &vbCrLf
sMessageText = sMessageText & "* één(1) bon per familie"
Mail.Body = sMessageText
'versturen van de email
Mail.Send


'controle op fouten
If Err <> 0 Then ' error occurred
strErr = Err.Description
else response.write("Binnenkort mailen we jou onze nieuwsbrief, print alvast
je bevestigingsmail af en je ontvangt een waardebon van 10%")
end if

%>

 

[Stefan B Rusynko]

See http://www.aspemail.com/manual_04.html

But IMHO, don't do it (except maybe as an attachment)
- must users/firewalls/AV now block all images in emails except from trusted sources


--

_____________________________________________
SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
"Warning - Using the F1 Key will not break anything!" (-;
To find the best Newsgroup for FrontPage support see:
http://www.frontpagemvps.com/FrontPageNewsGroups/tabid/53/Default.aspx
_____________________________________________


| hi
|
| i have a simple page asking the user his info. In reply i send a mail with
| some info to this person
|
| how can i add also a .jpg r .bmp logo into this mail?
|
| code hereafter
|
| many thx
| peter
|
| <%
| 'de nodige variabelen
| Dim Mail
| Dim sMessageText
| dim mailadres
|
| 'aanmaken van de ASPemail component
| Set Mail = Server.CreateObject("Persits.Mailsender")
| 'het adres van de mailserver
| Mail.Host = "localhost"
| 'meegeven van het emailadres van de zender
| Mail.From = request("email0")
| 'meegeven van de naam van de zender
| Mail.FromName = request("naam0")
| 'meegeven van het emailadres van de bestemmeling
| Mail.AddAddress "(e-mail address removed)"
| 'onderwerp van de mail
| Mail.Subject = "Een website bezoeker wil graag de nieuwsbrief ontvangen : "
| + request("naam0")
| 'opmaken van het bericht
| sMessageText = "Deze persoon is te bereiken op het volgende telefoonnummer :
| " + request("tel0") & vbCrLf &vbCrLf
| sMessageText = sMessageText & "emailadres is : "
| sMessageText = sMessageText & request("email0")& vbCrLf &vbCrLf
| sMessageText = sMessageText & "adresgegevens zijn : "
| sMessageText = sMessageText & request("straat0")
| sMessageText = sMessageText & " ,"
| sMessageText = sMessageText & request("gemeente0")
| sMessageText = sMessageText & " "
| sMessageText = sMessageText & request("postcode0")
| Mail.Body = sMessageText
| 'versturen van de email
| Mail.Send
|
| Set Mail = Server.CreateObject("Persits.Mailsender")
| 'het adres van de mailserver
| Mail.Host = "localhost"
| 'meegeven van het emailadres van de zender
| Mail.From = "(e-mail address removed)"
| 'meegeven van de naam van de zender
| mailadres=request("email0")
| Mail.AddAddress request("email0")
| 'onderwerp van de mail
| Mail.Subject = "Beste " + request("naam0") + ", proficiat met je kortingsbon
| van 10%!"
| 'opmaken van het bericht
| sMessageText = "Bedankt om in te schrijven op onze nieuwsbrief."
| sMessageText = sMessageText & vbCrLf &vbCrLf
| sMessageText = sMessageText & "Als welkomstgeschenk krijgt u een kortingsbon
| van 10%*"
| sMessageText = sMessageText & vbCrLf &vbCrLf
| sMessageText = sMessageText & "Druk deze email en geef hem af bij je
| volgende aankoop."
| sMessageText = sMessageText & vbCrLf &vbCrLf
| sMessageText = sMessageText & vbCrLf &vbCrLf
| sMessageText = sMessageText & "* één(1) bon per familie"
| Mail.Body = sMessageText
| 'versturen van de email
| Mail.Send
|
|
| 'controle op fouten
| If Err <> 0 Then ' error occurred
| strErr = Err.Description
| else response.write("Binnenkort mailen we jou onze nieuwsbrief, print alvast
| je bevestigingsmail af en je ontvangt een waardebon van 10%")
| end if
|
| %>