Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook + Kontroll
03.02.2023 14:59:23 Daniel
NotSolved
03.02.2023 22:38:37 ralf_b
NotSolved
10.02.2023 14:15:19 Daniel
NotSolved
04.02.2023 18:24:12 Gast44347
NotSolved
05.02.2023 17:25:55 Gast38012
NotSolved
10.02.2023 14:22:31 Gast52435
NotSolved
10.02.2023 14:28:08 Gast83797
NotSolved

Ansicht des Beitrags:
Von:
Daniel
Datum:
03.02.2023 14:59:23
Views:
1015
Rating: Antwort:
  Ja
Thema:
Outlook + Kontroll

Hallo.

ich erstelle eine BANF Tabelle mit einem Button zum Versenden.

Die Tabelle hat 30 Zeilen die Kontrolliert werden sollen.

Ich würde euch die ersten 2 Zeilen mal zeigen. Wenn ich auf senden klicke kontrolliert er alles meldet sich aber das in der 2. Zeile ein Feld fehlt, aber es sind alle ausgefüllt. Was mache ich hier falsch ?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Function Kontrolle() As Boolean
    Kontrolle = False
    If Range("C2").Value = "" Then
        MsgBox "Nachname nicht ausgefüllt!", vbOKOnly
 
    ElseIf Range("G2").Value = "" Then
        MsgBox "Vorname nicht ausgefüllt!", vbOKOnly
 
    ElseIf Range("B3").Value = "" Then
        MsgBox "Prüfer nicht ausgefüllt!", vbOKOnly
 
    ElseIf Range("C4").Value = "" Then
        MsgBox "Angebot JA (X/_) nicht ausgefüllt!", vbOKOnly
 
    ElseIf Range("E4").Value = "" Then
        MsgBox "Angebot Nein (X/_) nicht ausgefüllt!", vbOKOnly
         
    ElseIf Range("G4").Value = "" Then
        MsgBox "Angebotsnr. nicht ausgefüllt! Falls kein Angebot vorhanden bitte *X* eintragen!", vbOKOnly
 
    ElseIf Range("B6").Value = "" Then
        MsgBox "Artikelnummer (Zeile 1) nicht ausgefüllt!", vbOKOnly
 
    ElseIf Range("F6").Value = "" Then
        MsgBox "Artikelbezeichnung (Zeile 1) nicht ausgefüllt!", vbOKOnly
 
    ElseIf Range("J6").Value = "" Then
        MsgBox "Menge (Zeile 1) nicht ausgefüllt!", vbOKOnly
 
    ElseIf Range("K6").Value = "" Then
        MsgBox "AB-Nummer (Zeile 1) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!", vbOKOnly
 
    ElseIf Range("L6").Value = "" Then
        MsgBox "Kostenstelle (Zeile 1) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!", vbOKOnly
    Else
        Kontrolle = True
    End If
End Function
 
Function Kontrolle2() As Boolean
    Kontrolle2 = False
    If Range("B7") & Range("F7") & Range("J7") & Range("K8") & Range("L8").Value <> "" Then
        If Range("B7").Value = "" Then
            MsgBox "Artikelnummer (Zeile 2) nicht ausgefüllt!", vbOKOnly
 
        ElseIf Range("F7").Value = "" Then
            MsgBox "Artikelbezeichnung (Zeile 2) nicht ausgefüllt!", vbOKOnly
 
        ElseIf Range("J7").Value = "" Then
            MsgBox "Menge (Zeile 2) nicht ausgefüllt!", vbOKOnly
 
        ElseIf Range("K7").Value = "" Then
            MsgBox "AB-Nummer (Zeile 2) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!", vbOKOnly
 
        ElseIf Range("L7").Value = "" Then
            MsgBox "Kostenstelle (Zeile 2) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!", vbOKOnly
         
        End If
    Else
    Kontrolle2 = True
    End If
End Function
 
Function Versenden()
    Dim Nachricht As Object, OutlookApplication As Object
    Set MyOutApp = CreateObject("Outlook.Application")
    Set MyMessage = MyOutApp.CreateItem(0)
    Dim Anhang As String
    Anhang = ThisWorkbook.FullName
     
    With MyMessage
    .To = Range("A37")
    .Subject = "Bestellanforderung (BANF)" & "  " & Range("L1")
    .attachments.Add Anhang
    .body = "Hallo" & " " & Range("B3") & Chr(13) & _
            Chr(13) & _
            "**" & " " & Range("C2") & "," & " " & Range("G2") & " " & "**" & " " & "hat Ihnen eine Bestellanforderung (BANF) zur Überprüfung geschickt." & Chr(13) & _
            "Bitte kontrollieren Sie die BANF und leiten diese Email mit der Freigabe inkl. Anhang" & Chr(13) & _
            "an P142 Walz, Daniel weiter." & Chr(13) & _
            "Sollte es ein Angebot dazu geben, bitte beifügen." & Chr(13) & _
            Chr(13) & _
            "Bei Abwesenheit von P142 bitte an die passende Vertretung schicken." & _
            Chr(13) & _
            Chr(13) & _
            "Vielen Dank"
    .send
 
End With
 
    Set MyOutApp = Nothing
    Set MyMessage = Nothing
     
    ThisWorkbook.Save
    Application.Quit
     
End Function
 
Sub Versand()
    If Kontrolle = False Then
        MsgBox "Eine oder mehrere Pflichtfelder (Zeile 1) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
    ElseIf Kontrolle2 = False Then
        MsgBox "Eine oder mehrere Pflichtfelder (Zeile 2) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
    Else
        Versenden
            MsgBox "BANF wurde verschickt.", vbOKOnly
    End If
End Sub

 


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 Outlook + Kontroll
03.02.2023 14:59:23 Daniel
NotSolved
03.02.2023 22:38:37 ralf_b
NotSolved
10.02.2023 14:15:19 Daniel
NotSolved
04.02.2023 18:24:12 Gast44347
NotSolved
05.02.2023 17:25:55 Gast38012
NotSolved
10.02.2023 14:22:31 Gast52435
NotSolved
10.02.2023 14:28:08 Gast83797
NotSolved