Advertisement
Advertisement
| 06.30.2008 at 09:01AM PDT, ID: 23527342 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: |
Dim recKey As String = ""
Dim workDataView As EpiDataView = CType(oTrans.EpiDataViews("Customer"), EpiDataView)
If (workDataView.dataView.Count > 0 and workDataView.Row >= 0) Then
recKey = workDataView.dataView(workDataView.row)("EMailAddress").ToString()
End If
If (recKey.Length > 0) Then
Process.Start("Mailto:(recKey)")
End If
End Sub
|