Thema Datum  Von Nutzer Rating
Antwort
Rot Eintrag vergleichen, e-mail auslesen, in Form einf
 21.03.2007 10:36:19 Xenia
NotSolved
26.03.2007 10:15:46 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Xenia		 Datum:
21.03.2007 10:36:19		 Views:
1813		 Rating:
     
Antwort:
  Ja
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)
  • Bei 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)
  • Bei 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
Rot Eintrag vergleichen, e-mail auslesen, in Form einf
 21.03.2007 10:36:19 Xenia
NotSolved
26.03.2007 10:15:46 Rasta
NotSolved