VBA
Excel VBA
Word VBA
Access VBA
VBScript
VB
C#
Objective-C
C++
SQL
JAVA
VBA (English)
Jobs
Übersicht
Thema
Datum
Von Nutzer
Rating
Antwort
Eintrag vergleichen, e-mail auslesen, in Form einf
21.03.2007 10:36:19
Xenia
Aw:Eintrag vergleichen, e-mail auslesen, in Form e
26.03.2007 10:15:46
Rasta
Ansicht des Beitrags:
Von:
Xenia
Datum:
21.03.2007 10:36:19
Views:
1804
Rating:
Antwort:
Thema:
Eintrag vergleichen, e-mail auslesen, in Form einf
Hallo Leute!
Habe in Excel ein Datenbank:
1. Spalte- JobName
2. Spalte -emailadresse von Bearbeiter
Das Programm muss den vorgegebenen jobname in Excel-Datei finden.
Wenn dieses es gefunden hat muss es die 2. Spalte gleicher Zeile auslesen
und in das Formularfeld "To" einfügen.
Ich kann das ganze nicht in VB übersetzen
Bisher sieht das Programm ungefähr so aus
Hilfe
Public Sub
Dim UserName As String
' --- Assign the value of the action parameter "To" ---
action.To = UserName
' --- Assign the value of the action parameter "Cc" ---
' action.Cc = some value expression
' --- Assign the value of the action parameter "Body" ---
' action.Body = some value expression
' --- Assign the value of the action parameter "Attachments" ---
' action.Attachments = some value expression
' --- Assign the value of the action parameter "From" ---
'action.From = "automation@prinergy.com"
' --- Assign the value of the action parameter "Subject" ---
' action.Subject = some value expression
End Sub
Private Function UserName As String
Dim enc As Text.Encoding
enc = Text.Encoding.Unicode
Dim sr As New IO.StreamReader(" 'Hier ist die Excel-Tabelle zu finden")
Dim line As String
Dim JobName As String
JobName = triggerEvent.RootEvent.Job.Name
Do 'Ab hier happert's bei mir: Die E-mail Adresse wird nicht in das Formularfeld "To" eingefügt
line = sr.ReadLine()
If Microsoft.VisualBasic.InStr(line, JobName) > 0 Then
UserName = JobName
Else
UserName = Microsoft.VisualBasic.Split(line,Microsoft.VisualBasic.vbTab)(2) + _
" " + _
Microsoft.VisualBasic.Split(line,Microsoft.VisualBasic.vbTab)(1) + _
" (" + _
UserName + _
")"
End If
Loop
sr.Close()
Return UserName
End Function
Ihre Antwort
Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
B
ei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema:
Name:
Email:
Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
B
ei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema
Datum
Von Nutzer
Rating
Antwort
Eintrag vergleichen, e-mail auslesen, in Form einf
21.03.2007 10:36:19
Xenia
Aw:Eintrag vergleichen, e-mail auslesen, in Form e
26.03.2007 10:15:46
Rasta