|
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
|