アクティベーションリンクをクリックしてCreateOutlookContacts関数を呼び出す方法..
Outlook関数コードを以下に示します
mailItem.HTMLBody = "
やあ、
コンスタクツワールドへようこそ....
下のリンクをクリックして、アドレス帳に私の連絡先を追加してください
「アクティベーションリンク」
**//my function which i want to call on activation link**
Public Function CreateOutlookContacts(ByVal Sid As Integer) As Boolean
Try
Dim sql As String = "select * from SubscriberProfile"
Dim connectionString As String = _ "Data Source=c211\c211;Initial Catalog=Ctc;User ID=sa;Password=sa"
Dim sqlconn As New SqlConnection(connectionString)
sqlconn.Open() ' Sets up the connection, it is closed here
NewContact.FileAs = "arnav chauhan"
NewContact.Email1Address = "arnav.chauhan@gmail.com"
NewContact.Email2Address = "abc@live.com"
NewContact.MailingAddress = "Meerut UP, India"
NewContact.Subject = "Contact crated from vb.net"
NewContact.JobTitle = "Software Engineer"
NewContact.Save()
Next
end function