thefalcon
Feb 19, 2014 at 10:59:21 (UTC)
view3352
view14
0
Goto Top

Variablen Text einfügen

GermansolvedQuestionBasicDevelopment
Hallo zusammen,

ich hab ein Makro, welches automatisch eine E-MAil verschickt nachdem man in einer Message Box einen Text eingegeben hat. Dieser Text soll nicht an einer beliebigen Stelle ausgegeben werden sondern

in dem Bereich zwischen >>>> <<<< nach Möglichkeit dann auch Fett und unterstrichen


Sub SMSmatalarm()

'Makro zum starten einer SMS - Email Materialalarm


Dim strSupportEMail As Variant

' SMS und E-Mail Adresse werden gesendet an:
' SMS ensteht wenn man Handynummer@t-mobile-sms.de schreibt

' Alexander, Test2, Test3
strSupportEMail = Array("alexander@test.de")
VariableMailtext = InputBox("Hier kurz angeben was fehlt und wie dringend" & Chr(13) & "Sachnummer Material")


Dim notesdb As Object
Dim notesdoc As Object
Dim notesrtf As Object
Dim notessession As Object
Set notessession = CreateObject("Notes.Notessession")
Set notesdb = notessession.getdatabase("", "")
Call notesdb.openmail

' Mail erstellen
Set notesdoc = notesdb.createdocument
Call notesdoc.replaceitemvalue("Sendto", strSupportEMail)

' Betreffzeile
Call notesdoc.replaceitemvalue("Subject", "Es Fehlt ein Teil aus dem Regal")

Set notesrtf = notesdoc.createrichtextitem("body")

' Info Text
Call notesrtf.appendtext("Es Fehlt im Berreich Test folgendes Teil: >>>> <<<<. ( Bei Rückfragen Tel. )")
Call notesrtf.addnewline(2)
Call notesrtf.appendtext(VariableMailtext)

Call notesrtf.addnewline(2)

' Mail senden und Hinweis
Call notesdoc.Send(False)
Set notessession = Nothing
MsgBox "Das Team Material Team wurde informiert"


End Sub
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 230402

Url: https://administrator.de/contentid/230402

Printed on: April 18, 2024 at 02:04 o'clock

14 Comments
Latest comment
Goto Top
Member: colinardo
colinardo Feb 19, 2014 updated at 11:18:22 (UTC)
Goto Top
Hallo TheFalcon,
mit Notes habe ich schon ewig nicht mehr hantiert, aber da es VB ist sollte die Abänderung des folgenden Abschnitts den gewünschten Erfolg bringen:
' Info Text  
Call notesrtf.appendtext("Es Fehlt im Bereich Test folgendes Teil: >>>>" & VariableMailtext & "<<<<. ( Bei Rückfragen Tel. )")

Im Zusammenhang dann also so:
Sub SMSmatalarm()

  'Makro zum starten einer SMS - Email Materialalarm  
  Dim strSupportEMail As Variant

  ' SMS und E-Mail Adresse werden gesendet an:  
  ' SMS ensteht wenn man Handynummer@t-mobile-sms.de schreibt  

  ' Alexander, Test2, Test3  
  strSupportEMail = Array("alexander@test.de")  
  VariableMailtext = InputBox("Hier kurz angeben was fehlt und wie dringend" & Chr(13) & "Sachnummer Material")  

  Dim notesdb As Object
  Dim notesdoc As Object
  Dim notesrtf As Object
  Dim notessession As Object
  Set notessession = CreateObject("Notes.Notessession")  
  Set notesdb = notessession.getdatabase("", "")  
  Call notesdb.openmail

  ' Mail erstellen  
  Set notesdoc = notesdb.createdocument
  Call notesdoc.replaceitemvalue("Sendto", strSupportEMail)  

  ' Betreffzeile  
  Call notesdoc.replaceitemvalue("Subject", "Es Fehlt ein Teil aus dem Regal")  

  Set notesrtf = notesdoc.createrichtextitem("body")  

  ' Info Text  
  Call notesrtf.appendtext("Es Fehlt im Bereich Test folgendes Teil: >>>>" & VariableMailtext & "<<<<. ( Bei Rückfragen Tel. )")  

  ' Mail senden und Hinweis  
  Call notesdoc.Send(False)
  Set notessession = Nothing
  MsgBox "Das Team Material Team wurde informiert"  
End Sub

Grüße Uwe
Member: TheFalcon
TheFalcon Feb 19, 2014 at 13:25:31 (UTC)
Goto Top
Das klingt schon mal sehr gut! Danke Uwe, mal etwas anderes es wurde noch der Wunsch geäußert eine Auswahlmöglichkeit zu machen zum Beispiel man gibt erst den Text ein und kann dann noch drei Haken setzen. Die dann je nachdem welcher Haken gesetzt ist, dort mit eingefügt wird.

Haken 1 Beispiel Fahrrad
Haken 2 Routenzug
Haken 3 Direkt

Gruss

Alexander
Member: colinardo
colinardo Feb 19, 2014 at 13:27:48 (UTC)
Goto Top
habe hier leider kein Notes mehr ... deshalb kenne ich die Möglichkeiten dort nicht. Normalerweise müsste man dafür eine extra Form erstellen...
Member: TheFalcon
TheFalcon Feb 19, 2014 at 13:33:13 (UTC)
Goto Top
Im Prinzip erfordert das ja nicht direkt Notes. Ich muss nur irgendwie ein anderes Auswahl Fenster erstellen. Gibt es da nicht auch einen Befehl für?
Member: colinardo
colinardo Feb 19, 2014 updated at 13:46:18 (UTC)
Goto Top
Ach so, das ist ja ein VBS-Script, sorry. Dachte das Ding läuft in Notes selber ...
Oberflächen kannst du mit VBS nicht erstellen. Was du machen könntest wäre eine MsgBox mit Ja/Nein Abfragen...
Oder eine zusätzliche InputBox mit dem Eintragen einer Nummer die für den enstprechenden Text steht

Oder direkt Powershell oder AutoIT nutzen, damit steht einem das ganze Areal an Forms zur Verfügung...

Grüße Uwe
heart1
Member: colinardo
colinardo Feb 19, 2014 updated at 13:44:58 (UTC)
Goto Top
Beispiel:
strText = ""  
auswahl = InputBox("Geben Sie die Nummer entsprechende Nummer an: " & vbNewLine & "[1] Beispiel Fahrrad / [2] Routenzug / [3] Direkt","Auswahl","1")  
Select Case auswahl
	Case 1
		strText = "Beispiel Fahrrad"  
	Case 2
		strText = "Routenzug"  
	Case 3
		strText = "Direkt"  
End Select
msgbox strText
Member: TheFalcon
TheFalcon Feb 19, 2014 at 13:46:30 (UTC)
Goto Top
Gibt es keine Möglichkeit wo ich dann nen Haken setzen könnte bei der MsgBox?
Member: colinardo
colinardo Feb 19, 2014 updated at 13:47:54 (UTC)
Goto Top
Zitat von @TheFalcon:
Gibt es keine Möglichkeit wo ich dann nen Haken setzen könnte bei der MsgBox?
Nein Häkchen gibts nicht ....
Member: TheFalcon
TheFalcon Feb 19, 2014 at 13:48:26 (UTC)
Goto Top
Ok, Danke ich werd mal schauen was ich mir so basteln werde, auf jeden Fall wurde mir schon mal geholfen. TOP
Member: colinardo
colinardo Feb 19, 2014 at 14:00:11 (UTC)
Goto Top
Was du noch machen könntest wäre eine HTA-Datei zu erstellen, damit kann man Oberflächen mit HTML zusammenbauen und dein Script dort einbauen. Ich mach dir dazu später mal ein Beispiel...

Grüße Uwe
Member: colinardo
colinardo Feb 19, 2014 updated at 17:52:17 (UTC)
Goto Top
So, den folgenden Code in eine Textdatei kopieren und die Endung in .HTA umbenennen:
Sieht dann so aus:

a614fec2f6d84ec1e38091759857a4a9

Zum Ausführen dann einfach Doppelklick auf die Datei.
<html>
<head>
<title>Material-Alarm</title>
<HTA:APPLICATION
  APPLICATIONNAME="Dialog"  
  ID="Dialog"  
  VERSION="1.0"  
  BORDER="dialog"  
  INNERBORDER="no"  
  MAXIMIZEBUTTON="no"  
  MINIMIZEBUTTON="no"  
  SCROLL="no"  
  SCROLLFLAT="yes"  
  CONTEXTMENU="no"  
  SELECTION="no"/>  
</head>
<script language="VBScript">  
Dim txtBeschreibung
Dim txtAuswahl

Sub Window_OnLoad
	window.resizeTo 350,280
End Sub

Sub OnClickButtonbtnOK()
  txtBeschreibung = txtFehlt.Value
  txtAuswahl = GetAuswahlRadioValue()
  SMSmatalarm
  Window.Close
End Sub

Function GetAuswahlRadioValue()
  For i=0 to Auswahl.length-1
    If Auswahl.Item(i).Checked Then
      GetAuswahlRadioValue = Auswahl.Item(i).Value
      Exit Function
    End If
  Next
  GetAuswahlRadioValue = ""  
End Function

Sub SMSmatalarm()
  'Makro zum starten einer SMS - Email Materialalarm  
  Dim strSupportEMail

  strSupportEMail = Array("alexander@test.de")  
  Dim notesdb
  Dim notesdoc
  Dim notesrtf
  Dim notessession
  Set notessession = CreateObject("Notes.Notessession")  
  Set notesdb = notessession.getdatabase("", "")  
  Call notesdb.openmail

  ' Mail erstellen  
  Set notesdoc = notesdb.createdocument
  Call notesdoc.replaceitemvalue("Sendto", strSupportEMail)  

  ' Betreffzeile  
  Call notesdoc.replaceitemvalue("Subject", "Es Fehlt ein Teil aus dem Regal")  

  Set notesrtf = notesdoc.createrichtextitem("body")  

  ' Info Text  
  Call notesrtf.appendtext("Es Fehlt im Bereich Test folgendes Teil:" & vbNewLine & ">>>>" & txtBeschreibung & "<<<<." & vbNewLine & txtAuswahl & vbNewLine & "( Bei Rückfragen Tel. )")  

  ' Mail senden und Hinweis  
  Call notesdoc.Send(False)
  Set notessession = Nothing
  MsgBox "Das Team Material Team wurde informiert"  
End Sub

</script>

<body bgcolor="#FEB794">  
<h3 style="font-size:12pt; margin-bottom:0">MATERIAL ALARM</h3>  
<p>Hier kurz angeben was fehlt und wie dringend<br/>
<span style="font-size:10pt">(Sachnummer Material)</span>  
<input type="text" name="txtFehlt" id="txtFehlt" style="width:100%"></p>  
<input type="radio" name="Auswahl" value="Beispiel Fahrrad" checked>Beispiel Fahrrad<BR>  
<input type="radio" name="Auswahl" value="Routenzug">Routenzug<BR>  
<input type="radio" name="Auswahl" value="Direkt">Direkt<BR>  
<div style="margin:10px auto; text-align: center"><input type="button" name="btnOK" id="btnOK" value="Mail senden" onclick="OnClickButtonbtnOK"></div>  
</body>
</html>
Aus dem ganzen kann man auch eine *.exe-Datei generieren, wenn das benötigt wird.
Als Hilfestellung zum erstellen solcher Files, kannst du dir auch mal folgendes Programm anschauen:
http://www.htaedit.com/

Grüße Uwe
Member: TheFalcon
TheFalcon Feb 19, 2014 updated at 17:44:07 (UTC)
Goto Top
Das ist ja der absoluter Hammer!!!! Mit was hast du das so erstellt? Das sieht Super aus!!!!!

Werde das gleich morgen mal testen
Member: colinardo
colinardo Feb 19, 2014, updated at Feb 20, 2014 at 08:49:22 (UTC)
Goto Top
Zitat von @TheFalcon:

Das ist ja der absoluter Hammer!!!! Mit was hast du das so erstellt? Das sieht Super aus!!!!!
Eigentlich braucht's dazu nur etwas Wissen wie HyperTextApplication-Dokumente aufgebaut sind, der Rest ist HTML und VB-Script. Wenn du eine spezielle Oberfläche dafür haben willst, schau dir den Link im letzten Post an...

face-smile Uwe
Member: TheFalcon
TheFalcon Feb 19, 2014 at 18:13:24 (UTC)
Goto Top
Ich kenne mich etwas mit PHP und MySQL aus, also somit auch etwas mit HTML das HTA Dokument ist mir neu ;)
GermansolvedQuestionBasicDevelopment
Hotly discussed
AlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment