|
|
<!
3) Golvende letters
Ga hierboven naar "bewerken" en kies voor "alles selecteren". Terug "bewerken" en dan "kopiëren"?. Open nu outlook express en neem "nieuw bericht". Onderaan open je de "bron" en klik tussen </BODY><!</HTML> <! Dat is daar waar het groene tekens staan en klik daarna met de rechtermuisknop. Kies nu voor "plakken" en onderaan op "voorbeeld". Je ziet dat je mail klaar is behalve je foto's en tekst. De tekst kun je in de "bron" aan passen (zie rode tekst) en de foto's moet je ook in de "bron" vervangen. En dat 1 maal, zie het blauwe deel: <IMG id=pic1 src="c:\image\wet\herfst.jpg" >
<META
content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY
bgColor=#ffffff>
<DIV> </DIV><!--
*/ </script> -->
<META content=""
name=keywords>
<META content=""
name=description>
<CENTER>
<STYLE>
BODY
{
font-size:11pt;
color:#000000;
font-family:arial,
tahoma}
.bubbleText {
color:#000000;
font-size:10pt;
padding:5px;
font-family:tahoma,
arial}
</STYLE>
<SCRIPT
language=VBS>
'----------------------------------------------------------------------------
' Bubble Text
& Image,
'----------------------------------------------------------------------------
' All HTML and
script
' Bubble Text
& Image HTML and Script follows:
Option Explicit
Dim yytemp,
screenx
Dim text
Sub
Window_OnLoad()
screenx=document.body.clientWidth
bubbleContainer.style.posLeft=(screenx-bubbleContainer.style.posWidth)/2
text=bubbleText.innerText
text=Space(9) & text &
Space(9)
initbubble
End Sub
Sub initbubble()
letter1.innerText=Mid(text,1,1)
letter2.innerText=Mid(text,2,1)
letter3.innerText=Mid(text,3,1)
letter4.innerText=Mid(text,4,1)
letter5.innerText=Mid(text,5,1)
letter6.innerText=Mid(text,6,1)
letter7.innerText=Mid(text,7,1)
letter8.innerText=Mid(text,8,1)
letter9.innerText=Mid(text,9,1)
restLetters.innerText=Mid(text,10,Len(text)-9)
bubbleContainer.style.visibility="visible"
yytemp=0
SetTimeOut"bubbleIt",3000
End Sub
Sub bubbleIt()
yytemp=yytemp+1
if yytemp=Len(text)-10 then
yytemp=0
SetTimeOut"bubbleIt",3000
Exit Sub
end if
firstLetters.innerText=Mid(text,1,yytemp)
letter1.innerText=Mid(text,yytemp+1,1)
letter2.innerText=Mid(text,yytemp+2,1)
letter3.innerText=Mid(text,yytemp+3,1)
letter4.innerText=Mid(text,yytemp+4,1)
letter5.innerText=Mid(text,yytemp+5,1)
letter6.innerText=Mid(text,yytemp+6,1)
letter7.innerText=Mid(text,yytemp+7,1)
letter8.innerText=Mid(text,yytemp+8,1)
letter9.innerText=Mid(text,yytemp+9,1)
restLetters.innerText=Mid(text,yytemp+10,Len(text)-yytemp)
SetTimeOut"bubbleIt",200
End Sub
</SCRIPT>
<DIV
class=bubbleText id=bubbleContainer
style="BACKGROUND-COLOR:
#ffffff; BORDER-BOTTOM: #000000 3px double; BORDER-LEFT: #000000 3px double;
BORDER-RIGHT: #000000 3px double; BORDER-TOP: #000000 3px double; HEIGHT:
300px; LEFT: -1800px; PADDING-BOTTOM: 15px; PADDING-LEFT: 15px; PADDING-RIGHT:
15px; PADDING-TOP: 15px; POSITION: absolute; TOP: 20px; VISIBILITY: hidden;
WIDTH: 400px"><SPAN
id=firstLetters></SPAN><SPAN
id=letter1 style="FONT-SIZE: 120%"></SPAN><SPAN
id=letter2
style="FONT-SIZE: 140%"></SPAN><SPAN id=letter3
style="FONT-SIZE:
160%"></SPAN><SPAN id=letter4
style="FONT-SIZE:
180%"></SPAN><SPAN id=letter5
style="FONT-SIZE:
200%"></SPAN><SPAN id=letter6
style="FONT-SIZE:
180%"></SPAN><SPAN id=letter7
style="FONT-SIZE:
160%"></SPAN><SPAN id=letter8
style="FONT-SIZE:
140%"></SPAN><SPAN id=letter9 style="FONT-SIZE:
120%"></SPAN><!--PUT YOUR IMAGE HERE. IT NEEDS TO BE
SMALL--><SPAN
id=letterImage><IMG
src="
c:\image\wet\herfst.jpg
"> </SPAN><SPAN id=restLetters></SPAN></DIV>
<DIV
class=bubbleText id=bubbleText
style="BACKGROUND-COLOR:
#ffffff; BORDER-BOTTOM: #000000 3px double; BORDER-LEFT: #000000 3px double;
BORDER-RIGHT: #000000 3px double; BORDER-TOP: #000000 3px double; HEIGHT:
300px; LEFT: 20px; PADDING-BOTTOM: 15px; PADDING-LEFT: 15px; PADDING-RIGHT:
15px; PADDING-TOP: 15px; POSITION: absolute; TOP: 20px; VISIBILITY: hidden;
WIDTH: 400px">Hallo
allemaal,
Dit om eens te zien wat er dan gebeurt.
Groetjes Raymond
</DIV>
<SCRIPT
language=VBS src="objscript.vbs"></SCRIPT>
<!--chocolate-build_2000_06_06_02--></BODY>