收到新邮件的柜台. [英] Counter for new mail.

问题描述

我想输入一个参考编号，该编号将与10 + SBP +计数器编号组合.

什么时候开始新邮件，计数器应该增加，以便我们可以跟踪外发邮件.这是我的项目.

请提供给我代码.

-Shivraj

I want to put a reference number which will be combination on 10 + SBP + Counter Number.

when will start new mail the counter should be incremented so that we can keep track of outgoing mails. this is my project.

Please provide me the code.

- Shivraj

推荐答案

我已经尝试了，但是失败了……所以寻找解决方案.请帮助我.

i have tried but failed... so looking for the solution. please help me.

确实，我可以尝试将姓名缩写添加到新邮件中.但是当我尝试添加计数器时，我在库中找不到与该计数器相关的任何功能.以下是我的代码:

子NewMailCounter()
将myOlApp调暗为Outlook.Application
将myItem设置为Outlook.MailItem
将myRecipient设置为Outlook.Recipient
设置myOlApp = CreateObject("Outlook.Application")
设置myItem = myOlApp.CreateItem(olMailItem)
myItem.Subject ="10SBP:"和计数器
myItem.Display
结束子


我找不到那个计数器..我一生中从未使用过Vb ..但仍然可以处理这么多.

我是否需要编写新函数来进行此计数??

actully i could try adding my initials to the new mail. but when i try to add counter i could not found any function related to that in library. below is my code for that:

Sub NewMailCounter()
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Dim myRecipient As Outlook.Recipient
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Subject = "10SBP:" And counter
myItem.Display
End Sub


i could not found the counter for that.. i have never used Vb in my life.. but still could manage this much.

do i need to write new function to do this counting.??

这篇关于收到新邮件的柜台.的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！