1

アクティベーションリンクをクリックして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
4

0 に答える 0