？？？调用OUTLOOK发邮件的问题

[fly001]

要自动写上标题，附件等内容。还有能不能判断用户是否点了“发送”按钮，最好给出详细的代码？各位大侠，先谢啦！

[孟子E章]

Private Sub SubmitButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Redirect("mailto:[e-mail]?body=cccc&subject=xxxx&cc=[e-mail]")
End Sub

[xiongliang2003]

见 NET的 MailMessage 和SmptMail对象

[fly001]

怎么发附件啊？

[cyp503]

Sub SendMailOutlook(aTo, Subject, TextBody, aFrom)

'Create an Outlook object
Dim Outlook 'As New Outlook.Application
Set Outlook = CreateObject("Outlook.Application")

'Create e new message
Dim Message 'As Outlook.MailItem
Set Message = Outlook.CreateItem(olMailItem)
With Message
'You can display the message To debug And see state
'.Display

.Subject = Subject
.Body = TextBody

'Set destination email address
.Recipients.Add (aTo)

'Set sender address If specified.
Const olOriginator = 0
If Len(aFrom) > 0 Then .Recipients.Add(aFrom).Type = olOriginator

'Send the message
.Send
End With
End Sub

[cyp503]

or:

<% @Page Language="C#" %>
<% @Import Namespace="System.Web.Mail" %>
<%
MailMessage msgMail = new MailMessage();

msgMail.To = "[e-mail]";
msgMail.From = "[e-mail]";
msgMail.Subject = "Attachment Test";

msgMail.BodyFormat = MailFormat.Text;
msgMail.Body = "Check out the attachment!";
msgMail.Attachments.Add(new MailAttachment("c:\\temp\\annual-report.pdf"));

SmtpMail.Send(msgMail);

Response.Write("Email was queued to disk");
%>

[ylm0101]

using System.Web.Mail;

private void BtnSend_ServerClick(object sender, System.EventArgs e)
{
string strLevel="";
MailMessage mail=new MailMessage();
if(ToMan.Value.Trim()==""||Subject.Value.Trim()==""||Body.Value.Trim()=="")
{

　　　　　　　　　return;　　　
}
else
{

try
{
mail.From =FromMan.Value.Trim();
mail.To =ToMan.Value;
mail.Subject =Subject.Value;
mail.Body =Body.Value;

strLevel=this.LevelSelect.SelectedItem.Value;
if(strLevel.Trim()=="NoImport") //Priority為尤先權
mail.Priority=MailPriority.Low;
if(strLevel.Trim()=="Import")
mail.Priority=MailPriority.High;
if(strLevel.Trim()=="Normal")
mail.Priority=MailPriority.Normal;

System.Web.Mail.SmtpMail.SmtpServer="192.168.0.158"; //Server service
mail.BodyFormat =System.Web.Mail.MailFormat.Text;
System.Web.Mail.SmtpMail.Send(mail);

MessageShow("郵件發送成功");
RegisterClientOnLoadEvent(this,"CloseForm(true)");
}
catch
{
MessageShow("郵件發送失敗,可能信息是沒填寫完整,或服務器有問題");
}
finally
{
mail=null;
}
}
}