Knop voor het versturen van de ingevulde velden per mail

Status
Niet open voor verdere reacties.

kruijfie

Gebruiker
Lid geworden
2 okt 2008
Berichten
54
Hallo allemaal,

Ik had een vraagje ik heb op mijn afdeling een klein programmatje wat gemaakt is door mijn voor gangers, collega's kunnen doormiddel van dit programmatje problemen bij ons aanmelden. Nou wil ik deze graag aanpassen.

Wat ik graag zou willen is onderaan het scherm een knop die alle ingevulde velden in een nieuwe mail plaatst zodat het verstuurd kan worden naar ons, daarbij moet die ook het email adres al invullen en de subject. Ik weet niet of het een probleem is maar meerendeels van het programmatje is gemaakt in HTML.

Ik heb een beetje verstand van VB en HTML, deze talen worden samen met CSS gebruikt in het programmatje.

Graag hoor ik van jullie of het mogelijk is, en hoe ik dit kan doen.

Alvast bedankt!

Groetjes Tom
 

Bijlagen

Je wilt dus een VB programaatjes wat voor de rest hetzelfde doet als dat html dingetje.

Je zou kunnen beginnen met de vormgeving van het forumulier. Plaats textboxen, labels knoppen.

Voor het daadwerkelijke versturen van de informatie die de gebruiken opgeeft, bekijk dit voorbeeld programaatje eens wat ik heb gemaakt:

http://www.themightyatom.nl/stuff/Simpel_Email_Client.zip
 
heel erg bedankt, maar is het niet mogelijk om de bestaande code te gebruiken? daarin worden allerlei TextArea's gebruikt, net zoiets als textboxen en dergelijke.

Dat hoopte ik in iedergeval want het neemt wel even wat tijd in beslag als ik het hele programmatje opnieuw opbouw in VB. Helaas heb ik die tijd op het moment nu niet.
 
Hoi,

Als je deze sub in je code plakt werkt het! (ervanuit gaande dat je met outlook werkt):

Sub SendMailOutlook(aTo, Subject, TextBody)
'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
 
Ik heb de sub toegevoegd in het programmatje, maar moet ik verder dan niks wijzigen er aan? moet dan toch een knop hebben en aangeven dat die die sub moet gebruiken?

Ik heb al meerdere sub's en heb deze hier gewoon onder geplaatst, tussen de <SCRIPT Language="VBScript"> </SCRIPT>
 
ja, er moet in de code waar je de sub wilt gaan aanroepen natuurlijk wat geplaatst worden.... ik ging er vanuit dat je dit o.b.v. je VB/HTML kennis wel verder kon oppakken vandaar dat ik dit niet had uit gewerkt, bij deze:

vervang de huidige 2 knoppen met deze code:
<INPUT TYPE="button" VALUE="Verstuur e-mail naar de Helpdesk" onClick="SendMailOutlook '<mail>', '<onderwerp>', '<boodschap>'">

onderwerp zal wel een variabele worden waarin je de velden van je form gaat plakken...

Lukt dat zo?
 
Ik gaat is even kijken, ik laat wel weten of het gelukt is :)

Ik snap het concept van VB en HTML, hoe het opgebouwd word maar blijkt toch dat ik er verder niet zoveel vanaf weet. Valt vies tegen dus :P
 
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">&nbsp;</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>
 
Maar nu heb ik weer 2 knoppen om alle informatie te versturen?
 
Ik moest toch de <naar mail> vervangen met het email adres waar het naar toe moet? want dit is het enige wat ik aangepast heb maar krijg een foutmelding wanneer ik op die knop drukt.

Wrong number of arguments or invalid prperty assignment 'SendMailOutlook'.

Als ik de arguments bekijk dan bestaat SendMailOutlook uit 4 stuks: (aTo, Subject, TextBody, aFrom)

Maar in de code voor de knop staan de eerste 2 ingevuld, moeten die andere niet?
Code:
<INPUT TYPE="button" VALUE="Verstuur e-mail naar de Helpdesk" onClick="SendMailOutlook 'Tommie_dekruijf@hotmail.com', 'test onderwerp'">

Of zit ik er heel erg naast?
 
Het derde en vierde argument in de sub declaratie moeten weg, dus:

Sub SendMailOutlook(aTo, Subject)
 
Nogmaals compleet, werkend en zonder 2e knop:

<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 = 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">&nbsp;</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>


<FORM>
<p>
<INPUT TYPE="button" VALUE="Verstuur e-mail naar de Helpdesk" onClick="SendMailOutlook '<naar mail>', 'test onderwerp'">


</body>
</html>
 
Hij werkt nu wel :D Maar is het toevallig mogelijk dat de 2 knoppen samengevoegd worden? dat je dus maar 1 knop hoeft te gebruiken?

Dat zou super zijn:)
In iedergeval al heel erg bedankt voor je hulp!

Groetjes Tom
 
Mijn laatste post en die van jou zijn van dezelfde tijd, is de code in mijn laatste post goed voor jou?
 
Ik krijg een foutmelding bij het openen, line 238 char 17, dan kom ik uit bij de verzend knop. De error die die geeft is: Expected ',' Code: 0.

Daarnaast gaat die bij de druk op de knop verzenden, misschien heb ik het niet goed uitgelegd maar wat ze namelijk nog moeten kunnen is bijlages er bij doen. is de code zo aan te passen dat wanneer je die knop gebruikt hij het mail adres, subject en de tekst er in kopieert? dan kunnen de gebruikers zelf de bijlages toe voegen als dat nodig is en dan verzenden.

Alvast weer heel erg bedankt, ik waardeer je hulp :)
 
Laatst bewerkt:
off topic:
Als ik jou was zou ik mijn vorige post even aanpassen.... ik kan nu zien wie je bent, wat je klanten zijn en waar je werkt...

Ik weet nu bv. dat je ná je stage direct bij hetzelfde bedrijf op je 20e aan het werk bent gegaan..... etc.

On topic:
ik heb de code werkend zoals ik je in mijn laatste post heb gegeven, wellicht goed om daar mee te starten om te zien of het dan werkt!
 
lol. das waar ook, maakt opzich niet uit want al die info staat ook op de website, maar toch bedankt ik zal het even aanpassen ;)

Hm oke dan zal ik er nog is even mee gaan spelen. :)

Thanks!
 
Deze vier regels zijn de boosdoener (als ik die uit jouw code haal werkt het!):
<script type="text/javascript">
window.moveTo(screen.availLeft, screen.availTop);
window.resizeTo(screen.availWidth, screen.availHeight);
</script>
 
heel apart, maar je heb gelijk. Hij werkt super, ziet er gaaf uit :)

Het enige wat ik nu mis is dat de gebruikers geen bijlages meer kunnen toevoegen aan de mail, eerst konden ze dat doen omdat er een scherm van outlook geopend werd en konden ze hier de bijlages er bij doen. Nu kan dat niet meer, heb je hier een andere manier voor of is het een kleine aanpassing zodat die het scherm in outlook opent?

Binnen outlook krijg ik ook de melding dat een programma iets wil aanpassen, dit gebeurd wanneer ik op de knop druk om te verzenden. Ik gok dat ik met een soort van signature moet werken, als ik het kan vergelijken met macro's binnen het office pakket.

Heb je hier toevallig een oplossing voor ?

groetjes Tom
 
Het gaat nu wel erg lijken op prof support.... wil je me bankrekening nummer? ;)

Als je .Display toevoegt aan de properties van Message en .Send weghaalt dan wordt outlook geopend en kan de eindgebruiker een attachment toevoegen.

Zo dus:
With Message
.Display
.Subject = Subject
.Body = TextBody

'Set destination email address
.Recipients.Add (aTo)

'Send the message
'.Send
End With

Groeten,

Marco
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan