OK, dan help ik je! Hier de nieuwe code:
<html>
<style type="text/css">
<!--
body { text-align:center; }
#wrapper { text-align:left; width:760px; margin:0 auto;position:relative; }
/* 760px will display on an 800px screen maximized browser window without */
/* horizontal scrollbars. */
-->
</style>
<head>
<meta http-equiv="Content-Language" content="nl">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Call Registration Tool - Centre of Excellence</title>
<HTA:APPLICATION
ID="objHTA"
APPLICATIONNAME="CRT"
SCROLL="yes"
SINGLEINSTANCE="yes"
>
</head>
<SCRIPT Language="VBScript">
Dim Desk, APP, Prio
Sub SelectText
If Checkbox1.Checked Then
Version = "2003"
Else
End If
If Checkbox2.Checked Then
Version = "2007"
Else
End If
strCopy = "Details Klant" & vbcrlf & _
"Naam: " & TextBox1.value & vbcrlf & _
"Telefoonnummer: " & TextBox2.value & vbcrlf & vbcrlf & _
"Details Aanmelder" & vbcrlf & _
"Naam: " & TextBox3.value & vbcrlf & _
"Telefoonnummer: " & TextBox4.value & vbcrlf & _
"Desk: " & Desk & vbcrlf & vbcrlf & _
"Details Incident" & vbcrlf & _
"Incidentnummer: " & Textbox5.Value & vbcrlf & _
"Applicatie: " & APP & vbcrlf & _
"Versie: " & Version & vbcrlf & _
"Prioriteit: " & Prio & vbcrlf & _
"Windows Foutmelding: " & TextArea1.value & vbcrlf & vbcrlf & _
"Probleem omschrijving: " & TextArea2.value & vbcrlf & vbcrlf & _
"Ondernomen acties: " & TextArea3.value & vbcrlf & vbcrlf & _
"Waar zou CoE de oplossing kunnen vinden?: " & TextArea4.value
document.parentwindow.clipboardData.SetData "text", strCopy
End Sub
Function body()
If Checkbox1.Checked Then
Version = "2003"
Else
End If
If Checkbox2.Checked Then
Version = "2007"
Else
End If
body = "Details Klant" & vbcrlf & _
"Naam: " & TextBox1.value & vbcrlf & _
"Telefoonnummer: " & TextBox2.value & vbcrlf & vbcrlf & _
"Details Aanmelder" & vbcrlf & _
"Naam: " & TextBox3.value & vbcrlf & _
"Telefoonnummer: " & TextBox4.value & vbcrlf & _
"Desk: " & Desk & vbcrlf & vbcrlf & _
"Details Incident" & vbcrlf & _
"Incidentnummer: " & Textbox5.Value & vbcrlf & _
"Applicatie: " & APP & vbcrlf & _
"Versie: " & Version & vbcrlf & _
"Prioriteit: " & Prio & vbcrlf & _
"Windows Foutmelding: " & TextArea1.value & vbcrlf & vbcrlf & _
"Probleem omschrijving: " & TextArea2.value & vbcrlf & vbcrlf & _
"Ondernomen acties: " & TextArea3.value & vbcrlf & vbcrlf & _
"Waar zou CoE de oplossing kunnen vinden?: " & TextArea4.value
end Function
Sub GetDD
Desk = DropDown1.Value
APP = DropDown2.Value
Prio = DropDown3.Value
End Sub
Sub SendMailOutlook(aTo, Subject, TextBody, aFrom)
TextBody = body()
'Create an Outlook object
Dim Outlook 'As New Outlook.Application
Set Outlook = CreateObject("Outlook.Application")
'Create e new message
Dim Message 'As Outlook.MailItem
Set Message = Outlook.CreateItem(olMailItem)
With Message
.Subject = Subject
.Body = TextBody
'Set destination email address
.Recipients.Add (aTo)
'Send the message
.Send
End With
End Sub
</SCRIPT>
<body>
<table style="width: 91%; height: 814px">
<tr>
<td colspan="2" class="EC_EC_style1">
<p align="center"> </td>
</tr>
<tr>
<td colspan="2" class="EC_EC_style1" bgcolor="#FF6666">
<p align="center"><font size="6" face="Arial Black">Call
Registration Tooltje</font><font size="6" face="Arial Black"><br>
</font><font size="2" face="Arial Black">
Centre of Excellence</font></td>
</tr>
<tr>
<td colspan="2" class="EC_EC_style5" bgcolor="#C0C0C0"><b>Details Klant</b></td>
</tr>
<tr>
<td style="width: 33%;">Naam</td>
<td width="66%"><input style="width: 359px;" type="text" size="20" name="Textbox1"></td>
</tr>
<tr>
<td style="width: 33%;">Telefoonnummer</td>
<td width="66%"><input style="width: 359px;" type="text" size="20" name="Textbox2"></td>
</tr>
<tr>
<td colspan="2" class="EC_EC_style5" bgcolor="#C0C0C0"><b>Details Aanmelder</b></td>
</tr>
<tr>
<td style="width: 33%;">Naam</td>
<td width="66%"><input style="width: 359px;" type="text" size="20" name="Textbox3"></td>
</tr>
<tr>
<td style="width: 33%;">Telefoonnummer</td>
<td width="66%"><input style="width: 359px;" type="text" size="20" name="Textbox4"></td>
</tr>
<tr>
<td style="width: 33%;">Desk</td>
<td width="66%">
<select size="1" name="DropDown1" onChange="GetDD">
<option value="NVT">Selecteer Desk</option>
<option value="KLM">kant1</option>
<option value="Cofely">klant2</option>
<option value="Schiphol">klant3</option>
<option value="Arboned">klant4</option>
<option value="Multiclient">klant5</option>
</select>
</tr>
<tr>
<td colspan="2" class="EC_EC_style5" bgcolor="#C0C0C0"><b>Details Incident</b></td>
</tr>
<tr>
<td style="width: 33%;">Incidentnummer</td>
<td width="66%"><input style="width: 359px;" type="text" size="20" name="Textbox5"></td>
</tr>
<tr>
<td style="width: 33%; height: 37px">Applicatie</td>
<td width="66%">
<select size="1" name="DropDown2" onChange="GetDD">
<option value="NVT">Selecteer Applicatie</option>
<option value="Windows XP">Windows XP</option>
<option value="Word">Word</option>
<option value="Excel">Excel</option>
<option value="Powerpoint">Powerpoint</option>
<option value="Outlook">Outlook</option>
</select>
</tr>
<tr>
<td style="width: 33%;">Versie</td>
<td width="66%">2003<input type="checkbox" value="ON" name="Checkbox1">2007
<input type="checkbox" value="ON" name="Checkbox2"></td>
</tr>
<tr>
<td style="width: 33%;">Prioriteit</td>
<td width="66%">
<select size="1" name="DropDown3" onChange="GetDD">
<option value="NVT">Selecteer Prioriteit</option>
<option value="Laag">Laag</option>
<option value="Gemiddeld">Gemiddeld</option>
<option value="Hoog">Hoog</option>
</select>
</td>
</tr>
<tr>
<td style="width: 33%;">Foutmelding</td>
<td width="66%">
<textarea style="width: 359px; height: 36px;" class="EC_EC_style7" rows="1" cols="20" name="TextArea1"></textarea></td>
</tr>
<tr>
<td style="width: 33%;">Probleem omschrijving</td>
<td width="66%">
<textarea style="width: 360; height: 90;" rows="1" cols="20" name="TextArea2"></textarea></td>
</tr>
<tr>
<td style="width: 33%;" height="101">Ondernomen acties</td>
<td height="101" width="66%">
<textarea style="width: 360; height: 90;" rows="1" cols="20" name="TextArea3"></textarea></td>
</tr>
<tr>
<td style="width: 33%;" height="110">
Waar zou CoE de oplossing kunnen vinden? </td>
<td height="110" width="66%">
<textarea style="width: 360; height: 90;" rows="1" cols="20" name="TextArea4"></textarea></td>
</tr>
</table>
<p>
<input id=runbutton class="button" type="button" value="Kopieer naar Clipboard" name="run_button" onClick="SelectText">
<FORM>
<p>
<INPUT TYPE="button" VALUE="Verstuur e-mail naar de Helpdesk" onClick="SendMailOutlook '<naar mail>', 'test onderwerp'">
</body>
</html>