کد رفتن به اوت لوک از وی بی

[sadeghmosavi539]

با عرض سلام
می خواستم بگم کدی می خوام که وقتی روی باتن زده شد ، اوتومات برنامه به اوت لوک رفته و ایمیلی که از قبل تو برنامه دادم به (to) اضافه شود
خواهش می کنم زود تر جواب دهید
با تشکر

[Alirezanet]

میتونید از MailTo استفاده کنید .... البته صرفا outlook باز نمیشه ... نرم افزار پیش فرض مدیریت ایمیل نصب شده بر روی سیستم کاربر باز شده و پارامتر های مورد نظر شما در اون ست میشه :
مثال :


mailto:mail@example.com?subject=Hello&body=Test&attachment=""C:\file.txt""


برای اجراش هم میتونید از کلاس Process استفاده کنید :
Process.Start

مثال :


Dim p As New Process
p.StartInfo.FileName = "MAILTOCOMMAND"
p.Start()



اگر هم صرفا قصد باز کردن outlook رو دارید میتونید از این روش استفاده کنید :
که البته این روش رو پیشنهاد نمیکنم به هیچ وجه ... چون معایب زیادی داره ...


Dim Outl As Object
Outl = CreateObject("Outlook.Application")
If Outl IsNot Nothing Then
Dim omsg As Object
omsg = Outl.CreateItem(0)
omsg.To = "yusuf@hotmail.com"
omsg.bcc = "yusuf@gmail.com"
omsg.subject = "Hello"
omsg.body = "godmorning"
omsg.Attachments.Add("c:\HP\opcserver.txt")
'set message properties here...'
omsg.Display(True) 'will display message to user


فکر میکنم راه سوم هم داشته باشه این موضوع و ارسال پارامتر به برنامه Outlook هست که فقط باید ببینیم چه پارامترهایی رو قبول میکنه ... و از طریق Process.Start میتونیم به راحتی Outlook رو باز کنیم