Dim eMailData
'eMailData = aufspaltete (Watch.GetJobInfo (7), „, ") 'dieses ist vom anderen Prozess
eMailData = 'dieses ist, wo ich Hilfe benötige
strType = eMailData (0)
strMailTo = eMailData (1)
strMailCc = eMailData (2)
strMailBcc = eMailData (3)
strMailSubject = eMailData (4)
strMailBody = eMailData (5)
strMailFrom = eMailData (6)
Watch.SetJobInfo 1, strMailTo
Watch.SetJobInfo 2, strMailCc
Watch.SetJobInfo 3, strMailBcc
Watch.SetJobInfo 4, strMailSubject
Watch.SetJobInfo 5, strMailBody
Watch.SetJobInfo 6, strMailFrom
|