Hallo zusammen - die untenstehenden Prozedur hat sich bis jetzt in anderen DB's bewährt, aber jetzt funktioniert sich irgendwie nicht mehr, bzw hält sich immer beim m0= "hallo" etc an und sagt immer compile error: variable not defined. Wenn ich den m0 bis m5 lösche und m99 komplett entferne funktioniert es wieder. Kann mir da jemand weiterhelfen. Vielen dank im voraus.
Private Sub PLAEmail_Click()
If Me.PLAEmail = False Then Exit Sub
If IsNull(Forms![Form_Main]![Combo78]) Then
MsgBox "Du hast keine Error Message eingegeben"
Let Me.PLAEmail = 0
Exit Sub
End If
If MsgBox("Is your Lotus Notes Mail Client up and running?", vbYesNo, "Lotus Notes?") = vbNo Then
Let Me.PLAEmail = 0
Exit Sub
End If
If DCount("Erromsg", "tlb_errormsgmailing", "Erromsg = '" & Forms![Form_Main]![Combo78] & "'") = 0 Then Exit Sub
Debug.Print DCount("Erromsg", "tlb_errormsgmailing", "Erromsg = '" & Forms![Form_Main]![Combo78] & "'")
Dim mto As String, mcc1 As String, mcc2 As String, msj As String, mre As String
mto = DLookup("Email", "tlb_errormsgmailing", "Erromsg = '" & Forms![Form_Main]![Combo78] & "'")
'mcc1 = "bitte entfernen"
'mcc2 = DLookup("mail_cc2", "tab mailing", "mail_pa = '" & Forms![for tasks]![req_task_ocntry] & "'")
msj = DLookup("EmailSubject", "tlb_errormsgmailing", "Erromsg = '" & Forms![Form_Main]![Combo78] & "'") & Chr$(10) & Forms![Form_Main]![ITEM] & " / " & Forms![Form_Main]![ITEMDESC] & " / " & Forms![Form_Main]![FIXVENDOR] & " " & Forms![Form_Main]![NAMEVENDOR]
'mre = DLookup("EmailAbsender", "tlb_vendorabsender", "MRP = '" & Forms![frm_Terminliste]![MRP] & "'")
Dim onum As Double, olin As Double, otyp As String, ogcd As String, oqty As Double, osht As String, octy As String, oact As String, oavl As String, odrc As String, ocom As String
m0 = "Hallo " & Chr$(10) & Chr$(10) & "Folgende Bestellung kann nicht ausgelöst werden: " & Chr$(10) & Chr$(10) & "******* REQUEST DETAILS ********" & Chr$(10) & Chr$(10)
m1 = "Item: " & Chr$(9) & Chr$(9) & Chr$(9) & Chr$(9) & Forms![Form_Main]![ITEM] & " / " & Forms![Form_Main]![ITEMDESC] & Chr$(10)
m2 = "Vendor:" & Chr$(9) & Chr$(9) & Chr$(9) & Chr$(9) & Forms![Form_Main]![FIXVENDOR] & " / " & Forms![Form_Main]![NAMEVENDOR] & Chr$(10)
m3 = "Error msg: " & Chr$(9) & Chr$(9) & Chr$(9) & Forms![Form_Main]![Combo78] & Chr$(10)
m4 = "Delivery Date: " & Chr$(9) & Chr$(9) & Chr$(9) & Forms![Form_Main]![DELIVERYDATE]
m5 = Chr$(10) & Chr$(10) & "Im voraus danke für die Hilfe!" & Chr$(10) & Chr$(10)
m99 = m0 & m1 & m2 & m3 & m4 & m5
DoCmd.SendObject acSendNoObject, , , mto, , , msj, m99, -1
Me.Comment = "Communication via Email"
Me.User = GetNTUser()
Me.Date = Date
Exit Sub
End Sub
probier mal
Private Sub PLAEmail_Click()
Dim m0 as string, m1 as string, m2 as string, m3 as string, m4 as string, m99 as string
...
Brilliant. You made my day. Vielen Dank.