Sende e-mail via knap i datagrid
Jeg anvender ASP.NET og VB 1.1Jeg har et datagrid med 13 kolonner.
1. Image button – Edit
2. ID fra Db
3. Data fra Db
4. Data fra Db
5. Data fra Db
6. Data fra Db
7. Data fra Db
8. Data fra Db
9. Data fra Db
10. Data fra Db
11. Fil navn på det Excel ark data er blevet eksporteret til
12. Image button kolonne hvis man vil eksporterer data til Excel endnu engang
13. Image button kolonne så man kan e-maile data fra den pågældende i linie til angivne adresse.
Jeg har forsøgt mange forskellige ting.
Jeg kunne godt tænke mig en løsning hvor man ikke skal tage hensyn til brugeres SMTP.
Dim Mydesignfilename As Label
Mydesignfilename = CType(e.Item.FindControl("DesignFileName"), Label)
If e.CommandName = "Email" Then
Dim myemail As LinkButton
Dim strURL As String
strURL = "mailto:test@mail.com?Subject:Using Mailto to send mails&Body:this is a test"
' Process.Start(strURL)
myemail = CType(e.Item.FindControl("btnemail"), LinkButton)
'myemail.NavigateUrl = "' test@mail.com, 'mailto:{0}'"
myemail.ResolveUrl(strURL)
'mailto: test@mail.com?Subject=Ahoy there shipmate&Body = Here is the shipping manifest&(Attach = " ")
'mailto: test@mail.com?Cc:Roxy@righthere.com&Subject:Using Mailto to send mails&Body:this is a test”>
' <asp:LinkButton Runat="server" text="<img src='images/email3.gif' border='no'>" CommandName="Email"
' CausesValidation="False" ID="btnemail"></asp:LinkButton>
' </ItemTemplate><A href=”mailto:Bob@somewhere.com?&Subject:Using Mailto to send mails&Body:this is a test”></A>
' <asp:Hyperlink runat="server" text="<img src='images/email3.gif' border='no'>" NavigateUrl='<%# DataBinder.Eval(Container, "DataItem.DPContactEmail", "mailto:Subject:"( container, "dataitem.designfilename")) %>' ID="Hyperlink1"></asp:HyperLink>
myMM.From = " test2@mail.com "
myMM.To = " test1@mail.com "
myMM.Subject = "Order Number " & DataGrid1.DataKeys(e.Item.ItemIndex)
myMM.Body = Mydesignfilename.Text
'SmtpMail.SmtpServer = "127.0.0.1"
' SmtpMail.Send(myMM)
' Dim MeasurementID As Integer
' MeasurementID = DataGrid1.DataKeys(e.Item.ItemIndex)
' Dim BoatGenID As Integer
' BoatGenID = DDlBoatModel.SelectedValue
' Response.Redirect("measureboat.aspx?MeasurementID=" & MeasurementID & "&BoatType=" & DDLBoatType.SelectedItem.Text & "&BoatModel=" & DDlBoatModel.SelectedItem.Text)