如何解决设置电子邮件已回复 - vba
我有宏将带有原始附件的电子邮件转发给原始电子邮件链中涉及的每个人。
Sub my_test()
Dim objItem As Object
Dim mail As MailItem
Dim forwardMail As MailItem
Dim templateItem As MailItem
For Each objItem In ActiveExplorer.Selection
If objItem.Class = olMail Then
Set mail = objItem
Set forwardMail = mail.Forward
Set templateItem = CreateItemFromTemplate("C:\template.oft")
With forwardMail
.HTMLBody = templateItem.HTMLBody & .HTMLBody
.To = mail.replyall.To & mail.replyall.CC
.display
End With
End If
Next
End Sub
是否可以将此电子邮件标记为“已回复”而不是“转发”电子邮件？
解决方法
是的，您只需要将 def get_parameter_vectors(parameter_vector,nb_dimensions,nb_parameters):
"""
Returns an unpacked list of parameters vectors.
https://towardsdatascience.com/a-hitchhikers-guide-to-mixture-density-networks-76b435826cca
"""
return [parameter_vector[:,i * nb_dimensions:(i + 1) * nb_dimensions] for i in range(nb_parameters)]
def binary_crossentropy(y):
y_true = y[:,0:1]
y_pred = y[:,1:2]
return binary_crossentropy(y_true,y_pred)
def vectorized_binary_crossentropy(y_true,y_pred):
y_true,date_ = get_parameter_vectors(y_true,1,2)
batch_size = 128 # ofcourse your unique's will not exceed this number,so this is safe maximum to use
unique_dates,partitions = tf.unique(date_)
y_elements = tf.dynamic_partition(tf.concat([y_true,y_pred],axis=1),partitions,num_partitions=batch_size)
y_elements = tf.ragged.stack(y_elements).to_tensor(shape=[None,batch_size,2]) # there will be zeros padded to make it same size
y_elements = tf.slice(y_elements,[0,0],[tf.size(unique_dates),y_elements.shape[1],y_elements.shape[2]]) # you need to cut those zero
result = tf.vectorized_map(binary_crossentropy,y_elements)
# you just calculated one binary_crossentropy loss per date HURRAY!!!
更改为 Set forwardMail = mail.Forward
您还应该将变量 Set forwardMail = mail.Reply 的名称更改为 forwardMail 并更改代码中的所有变量。完整代码如下。
replyMail如果你的意思是你想把图标改成代表“已回复”的那个，你可以按照下面的方式来改...
' Set property PR_ICON_INDEX to 261
objItem.PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x10800003",261
objItem.Save
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
