Thema Datum  Von Nutzer Rating
Antwort
Rot Transportanmeldung mehrere Empfänger
28.08.2023 15:31:34 Christoph
NotSolved
28.08.2023 18:58:50 LT67
NotSolved
28.08.2023 21:57:14 Gast34931
NotSolved
29.08.2023 06:49:08 ralf_b
NotSolved
29.08.2023 10:23:46 Mase
Solved

Ansicht des Beitrags:
Von:
Christoph
Datum:
28.08.2023 15:31:34
Views:
711
Rating: Antwort:
  Ja
Thema:
Transportanmeldung mehrere Empfänger

Hallo zusammen, 

wir haben ein Marko geschrieben um die Transportanmeldung sauber zu Standardisieren und es läuft auch. Nun haben wir einen weiteren Logistiker dazu bekommen und ich bekomme es zum Teufel nicht hin, dass beide die Mail gleichzeitig bekommen.... Vieleicht könnt Ihr mir meinen Fehler erkennen.

Danke und Gruß Christoph


Option Explicit

Private Sub ButtonAbbrechen_Click()
Unload Transportanmeldung
End Sub

Private Sub ButtonSenden_Click()

Dim objOutlook As Object
Dim objMail As Object
If MsgBox("E-Mail Wirklich senden?", vbYesNo, "Senden") = vbYes Then
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
    .To = "alexander.sokolov@re-interior.de"
    .Subject = "Transportanmeldung"
    .BodyFormat = olFormatRichText
    .Body = TextTermin.Value & vbCrLf & _
    vbCrLf & Text_Auftragnummer.Value & vbCrLf & _
    vbCrLf & TextPosition.Value & vbCrLf & _
    vbCrLf & TextHersteller.Value & vbCrLf & _
    vbCrLf & TextInfo.Value & vbCrLf & _
    vbCrLf & TextAdresse.Value & _
    vbCrLf & TextBox1.Value
   .Send        'Sendet die Email automatisch
    '.Display
End With
Unload Transportanmeldung
End If
End Sub

Private Sub Label7_Click()

End Sub

Private Sub Label8_Click()

End Sub

Private Sub UserForm_Initialize()
Dim a As String
'a = Lieferdatum()
'Debug.Print a
'TextTermin.Value = a
End Sub


Public Function Lieferdatum() As String
Dim Datum As String
Dim Heute As String
Dim a As Integer
a = 0
    Debug.Print WeekdayName(Weekday(Date + a), False, vbSunday)
    If WeekdayName(Weekday(Date + a), False, vbSunday) = "Donnerstag" Then
    Datum = Date + a + 4
    ElseIf WeekdayName(Weekday(Date + a), False, vbSunday) = "Freitag" Then
    Datum = Date + a + 3
    ElseIf WeekdayName(Weekday(Date + a), False, vbSunday) = "Samtag" Then
    Datum = Date + a + 2
    ElseIf WeekdayName(Weekday(Date + a), False, vbSunday) = "Sonntag" Then
    Datum = Date + a + 1
    Else
    Datum = Date + a + 2
    End If
    Debug.Print Datum
    Lieferdatum = Datum
    'Exit Function
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 Transportanmeldung mehrere Empfänger
28.08.2023 15:31:34 Christoph
NotSolved
28.08.2023 18:58:50 LT67
NotSolved
28.08.2023 21:57:14 Gast34931
NotSolved
29.08.2023 06:49:08 ralf_b
NotSolved
29.08.2023 10:23:46 Mase
Solved