Email falscher Empfänger
09.03.2018 15:33:22
Daniel
hab mein Programm fast fertig nur mein einziges Problem ist, wenn ich (im Programm) zwischen Applicatorischen Fehler und Service Defect wähle und mir das ae nehme sollte automatisch die rim@allianz.at verschwinden, nur das tut sie nicht..
hier ist der code (ist ziemlich viel aber sehr einfach denk ich)
ich bin für Eure Hilfe sehr dankbar
LG Daniel
https://www.herber.de/bbs/user/120314.xlsm
Dim bu As String, sd As String
Dim sdorae As String, loLetzte As Long, i As Long
Dim objOutlook As Object, objMail As Object
Dim awp As String, op As String
Dim toList As String
Private Sub CommandButton1_Click()
loLetzte = 0
i = 0
toList = ""
bu = ""
sd = ""
awp = ""
op = ""
sdorae = ""
sdorae = InputBox("Is it an application error (please write AE) or is it a Service Defect ( _
please write SD)?")
If sdorae = "AE" Then
Set spalte = Range("F:F")
Set spaltegef = spalte.Find("SD+A")
If spaltegef = "SD+A" Then
ActiveSheet.Range("$A$1:$L$300").AutoFilter Field:=6, Criteria1:="=A", _
Operator:=xlOr, Criteria2:="=SD+A"
ActiveSheet.Range("$A$1:$L$300").AutoFilter Field:=7, Criteria1:="=Active"
Do
bu = InputBox("Which Business Unit is affected? Example for AGA NL you write NL")
If bu = "" Then Exit Sub 'abbruch
If Len(bu)