Email Prozedur

[boehnli01]

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.

Code (vb) [Auswählen] Erweitern

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


[daolix]

probier mal

Code [Auswählen] Erweitern

Private Sub PLAEmail_Click()
Dim m0 as string, m1 as string, m2 as string, m3 as string, m4 as string, m99 as string
...


[boehnli01]

Brilliant. You made my day. Vielen Dank.