Gegroet!
Ik ben momenteel een interface aan het scripten voor een intranet. Ben momenteel bezig aan den emailfunctie die een datagrid afgaat, controleert waar er checkboxen zijn aangevinkt en waar aangevinkt, deze firma z'n email uit een andere cel van de grid kopieert. So far so good. Maar nu zit het zo
wanneer er een groot aantal firma's in de datagrid zit, is er een mogelijkheid om alle textboxen onmiddelijk te selecteren. dan kan je kiezen om een email te versturen via onderstaande code. maar dan wordt de outlook op de server aangesproken, en dat wil ik niet. Ik zou dus graag na de verwerking op de server (waar de string wordt opgebouwd van ontvangers) een nieuw emailscherm krijgen maar dan van de client's outlook.
Protected Sub btnEmail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEmail.Click
Dim intRow As Integer = 0
Dim strName As String = ""
Dim strPercent As String = ""
Dim dblTotal As Double = 0
Dim dblPercent As Double = 0
Dim mailStr As String = ""
Dim email As String = ""
Dim MyGrid As DataGrid
Dim teller As Integer = 0
Dim subject As String = " "
Dim body As String = " "
Dim oneSelected As Boolean = False
MyGrid = Me.dgCompany
' Number of rows in the DataGrid
'
Dim intRows As Integer = MyGrid.Items.Count - 1
Dim blnChecked As Boolean = False
'
' DataGrid rows are really DataGridItems.
'
Dim GridItem As DataGridItem
For intRow = 0 To intRows
'
' Get the grid row.
'
GridItem = MyGrid.Items(intRow)
'
' Get the Last Name
'
email = GridItem.Cells(4).Text().Trim()
'
' Find the controls in the DataGrid row and get their values.
'
blnChecked = DirectCast(GridItem.FindControl("chkEmail"), CheckBox).Checked
If blnChecked Then
If email.ToString <> " " Then
mailStr = mailStr & email & ", "
End If
End If
Next
Dim oOutlook As New Outlook.Application()
' Create an instance of the MailItem
Dim oMailitem As Outlook.MailItem
' Create an instance of the Attachment
'Dim oAttach As Outlook.Attachment
oMailitem = oOutlook.CreateItem(Outlook.OlItemType.olMailItem)
oMailitem.To = mailStr
oMailitem.Subject = "Email Integration with Outlook and VB.Net"
'PING….Displays the Outlook along with the To,Cc,Subject and Attachment
oMailitem.Display()
End Sub
deze code bouwt de mailstring op die zal gebruikt worden voor verzenders. Maar je kan dus bv niet zetten op het einde
response.redirect("mailto:....")
iemand een id?
Ik ben momenteel een interface aan het scripten voor een intranet. Ben momenteel bezig aan den emailfunctie die een datagrid afgaat, controleert waar er checkboxen zijn aangevinkt en waar aangevinkt, deze firma z'n email uit een andere cel van de grid kopieert. So far so good. Maar nu zit het zo
wanneer er een groot aantal firma's in de datagrid zit, is er een mogelijkheid om alle textboxen onmiddelijk te selecteren. dan kan je kiezen om een email te versturen via onderstaande code. maar dan wordt de outlook op de server aangesproken, en dat wil ik niet. Ik zou dus graag na de verwerking op de server (waar de string wordt opgebouwd van ontvangers) een nieuw emailscherm krijgen maar dan van de client's outlook.
Protected Sub btnEmail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEmail.Click
Dim intRow As Integer = 0
Dim strName As String = ""
Dim strPercent As String = ""
Dim dblTotal As Double = 0
Dim dblPercent As Double = 0
Dim mailStr As String = ""
Dim email As String = ""
Dim MyGrid As DataGrid
Dim teller As Integer = 0
Dim subject As String = " "
Dim body As String = " "
Dim oneSelected As Boolean = False
MyGrid = Me.dgCompany
' Number of rows in the DataGrid
'
Dim intRows As Integer = MyGrid.Items.Count - 1
Dim blnChecked As Boolean = False
'
' DataGrid rows are really DataGridItems.
'
Dim GridItem As DataGridItem
For intRow = 0 To intRows
'
' Get the grid row.
'
GridItem = MyGrid.Items(intRow)
'
' Get the Last Name
'
email = GridItem.Cells(4).Text().Trim()
'
' Find the controls in the DataGrid row and get their values.
'
blnChecked = DirectCast(GridItem.FindControl("chkEmail"), CheckBox).Checked
If blnChecked Then
If email.ToString <> " " Then
mailStr = mailStr & email & ", "
End If
End If
Next
Dim oOutlook As New Outlook.Application()
' Create an instance of the MailItem
Dim oMailitem As Outlook.MailItem
' Create an instance of the Attachment
'Dim oAttach As Outlook.Attachment
oMailitem = oOutlook.CreateItem(Outlook.OlItemType.olMailItem)
oMailitem.To = mailStr
oMailitem.Subject = "Email Integration with Outlook and VB.Net"
'PING….Displays the Outlook along with the To,Cc,Subject and Attachment
oMailitem.Display()
End Sub
deze code bouwt de mailstring op die zal gebruikt worden voor verzenders. Maar je kan dus bv niet zetten op het einde
response.redirect("mailto:....")
iemand een id?
