Question

我想创建一个Then / If str2 <> "" Then Set objProperty = msg.UserProperties(udf(2)) If (objProperty Is Nothing) Then Set objProperty = msg.UserProperties.Add(udf(2), olKeywords) End If objProperty.Value = str2 msg.Save End If语句，但我不知道该怎么做。

以下是将UDF2设置为值＆lt;＆gt;的代码str2然后从该列表中选择一个值;这保存在UDF2中。

' save information in UDF2
If str2 <> "" Then
    Set objProperty = msg.UserProperties(udf(2))
Else
    If str2 = "A" Then 
    'set UDF3 as the value B
    Set objProperty = msg.UserProperties.Add(list(3), olKeywords) 

    If (objProperty Is Nothing) Then
        Set objProperty = msg.UserProperties.Add(udf(2), olKeywords)
    End If

    objProperty.Value = str2
    objProperty.Value = str3
    msg.Save
End If

我希望这样做是将所选值存储在UDF2中 - 如果所选值=“A”，则UDF2将填充值“A”，这也会自动填充值为“B”的UDF3

以下是我的尝试;我不确定代码应该在哪个顺序，或者这是否是If和Then条件的正确方法？

trim()

Answer 1

这真的是VBA吗？我不能说我遵循这里的所有逻辑，但以下内容涉及大部分内容。另外，我不确定为什么你在msg之前两次覆盖ObjProperty.Value，保存

Type        | Sum of Price
==========================
Vegetable   | 5
Fruit       | 14
Meat        | 12

If语句根据值自动填充另一列（Outlook：VBA）

1 个答案: