有條件地用vba更改郵件收件人電子郵件地址

我的Access子窗體上有一個按鈕，它根據組合框中的值創建基於特定模板的新電子郵件。大多數這些模板已經有一個現有的To：電子郵件地址。在大多數情況下（這是用當前代碼完成的），這必須替換爲子窗體父窗體中的電子郵件地址，但如果組合框的值是'x'或'y'那麼它應該在第二種形式中插入另一封電子郵件，其中主窗體和第二種形式具有鏈接字段。是我到目前爲止的代碼：有條件地用vba更改郵件收件人電子郵件地址

If Me![cboEmail].Value = "Your patient Initial" Then 
oMail.To = Nz(DLookup("[strEmail]", "tblAddress", "[longDoctorID] = " & Me.Parent!longDoctorID)) 
ElseIf Me![cboEmail].Value = "Follow Up of your patient" Then 
oMail.To = Nz(DLookup("[strEmail]", "tblAddress", "[longDoctorID] = " & Me.Parent!longDoctorID)) 
Else 
oMail.To = Me.Parent![strEmailAddress].Value 
End If

什麼不工作是前兩個條件，其中值是「你的病人最初的」，或者如果它是「跟進您的病人」任何幫助將不勝感激！

來源

2016-07-24 Rajesh Nathani

什麼*不起作用*？ – Andre

[longDoctorID] = " & Me.Parent!longDoctorID)

這是一個字符串還是一個整數？如果它是一個字符串，它需要包含兩個單獨的字符串。報價

我不明白Nz當你沒有指定空值的原因？您然後嘗試發送電子郵件到「」

Debug.print Me![cboEmail].Value

它給你什麼？

來源

2016-07-24 10:23:39

@Andre＆Dave，謝謝你的回答。 [longDoctorID] =「＆Me.Parent！longDoctorID給出一個整數我是一個DIY模式的最終用戶，我定期更新數據庫的功能，當我需要它時，所以在這個代碼中，選擇患者的初始或隨訪時，會打開基於選定模板的電子郵件，但收件人：字段包含模板的默認電子郵件地址，而如果它是任何其他值，則收件人：字段將包含正確的電子郵件地址當前記錄。 –

我很抱歉，你是對的，問什麼不行？因爲它是工作代碼！當我放入Debug.Print行時，它給出了一個空值，因爲原始表中沒有值，因此給出了默認的電子郵件地址。對不起，你的時間用完了。該原始代碼有效。感謝您查看此問題。

來源

2016-07-24 13:20:36

有條件地用vba更改郵件收件人電子郵件地址

回答

相關問題