Ik heb een vbs scriptje gemaakt voor het verzenden van smsjes via Outlook.
Het script ziet er als volgt uit (bepaalde privacygevoelige informatie verwijderd).
Nu komt er om de zoveel tekens (regels) een spatie te staan middenin woorden (bijv. aang eboden), terwijl dit juist staat vermeld. Al gekeken waar dit aan kan liggen ( extra enters enz), maar kom er niet uit. Wie weet raad?
Het script ziet er als volgt uit (bepaalde privacygevoelige informatie verwijderd).
VBScript:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
| Dim Brief Dim Mobile Dim Scan Dim Date Do Brief = InputBox("Voer hier het 8-cijferige Airnummer in:", "Bill", "", 23200, 500) If Brief = "" Then WScript.quit() Mobile = InputBox("Voer hier het mobiele nummer in beginnend met +31:", "Mobiel telefoonnummer", "", 23200, 500) If Mobile = "" Then WScript.quit() Bedrag= InputBox("Voer hier het bedrag exclusief � in:", "Bedrag", "", 23200, 500) If Bedrag= "" Then WScript.quit() Start Outlook Set objOutlook = CreateObject("Outlook.Application") 'Open een nieuw e-mail bericht Set objMail = objOutlook.CreateItem(0) 'Geef het nieuwe bericht weer objMail.Display 'Zet de ontvanger op het ingegeven mobiele nummer + het mailadres van de server van geldnet objMail.To = Mobile & "@xx.xx.com" 'Tekstloos nieuw bericht objMail.body = "" 'Subject van het bericht objMail.Subject = "Vanavond wordt brief " & Brieven & " aangeboden. Over deze zending is nog een bedrag ( �" & Bedrag & ") verschuldigd, gelieve dit bedrag gepast aan ons personeel te voldoen." objMail.Send objOutlook.Quit Set objMail = Nothing Set objOutlook = Nothing Loop |
Nu komt er om de zoveel tekens (regels) een spatie te staan middenin woorden (bijv. aang eboden), terwijl dit juist staat vermeld. Al gekeken waar dit aan kan liggen ( extra enters enz), maar kom er niet uit. Wie weet raad?
[ Voor 5% gewijzigd door RobIII op 18-02-2015 19:29 ]