Le Blog d'Arnaud Jund

using System;
using System.IO;
using System.Net.Mail;
using System.Net.Mime;
using System.Web.UI;
using System.Web.UI.WebControls;
using Microsoft.SharePoint;
using Microsoft.SharePoint.Administration;
using Microsoft.SharePoint.WebControls;

namespace SendDocument
{
    public class SendDocument : LayoutsPageBase
    {
        //Private Members to control debugging information and error handling
        private string debugMessage = "";
        private bool isError = false;
        private bool displaySenderTextBox = false;

        private void Page_Load(object sender, System.EventArgs e)
        {
            string smtpFromAddress = "";
            ContentPlaceHolder mainContentPlaceholder = this.Master.FindControl("PlaceHolderMain") as ContentPlaceHolder;
          
           //Set Sender Email Address
            smtpFromAddress = GetSenderEmailAddress();
            debugMessage = debugMessage + "<br>Mail Message From Address : " + smtpFromAddress;

            ((TextBox)mainContentPlaceholder.FindControl("SenderAddress")).Text = smtpFromAddress;
            if (displaySenderTextBox)
            {
                ((TextBox)mainContentPlaceholder.FindControl("SenderAddress")).Enabled = true;
            }
        }

        //Event Handler about the Send Button
        protected void SendButton_Click(object sender, EventArgs e)
        {
            debugMessage = "<br>SendButton_Click()";
            ContentPlaceHolder mainContentPlaceholder = this.Master.FindControl("PlaceHolderMain") as ContentPlaceHolder;

            try
            {
                //Get the current SharePoint List and cast it to a Document Library
                SPList list = SPContext.Current.Web.Lists[new Guid(Request.QueryString["ListId"])];
                SPDocumentLibrary docLib = (SPDocumentLibrary)list;
                //Get the current item from this SharePoint Document Library
                int id = System.Convert.ToInt32(Request.QueryString["ItemId"]);
                SPListItem listItem = docLib.Items.GetItemById(id);
                //If there is a file associated with the SharePoint Item, the file will be send bu email as attachment
                if (listItem.File != null)
                {
                    string destinationAddress = ((TextBox)mainContentPlaceholder.FindControl("EmailAddress")).Text.Trim();
                    string senderAddress = ((TextBox)mainContentPlaceholder.FindControl("SenderAddress")).Text.Trim();
                    SendDocumentbyEmail(destinationAddress, senderAddress, "Document : " + listItem.Name + " from " + list.Title, listItem, list);
                }
            }
            catch (Exception  ex)
            {
                isError = true;
                debugMessage = debugMessage + "<br>Error - SendButton_Click() : <br>Error Message : " + ex.Message + "<br>Stack Error : " + ex.StackTrace.ToString();
            }

            //Show all debug and error messages if an error occured, othewise show a successfull message
            ((Panel)mainContentPlaceholder.FindControl("MailDocumentPanel")).Visible = false;
            if (isError)
            {
                debugMessage = debugMessage + "<br>The document has not been sent in attachment by email.";
            }
            else
            {
                debugMessage = "The document has been sent in attachment by email.";
            }
            ((Label)mainContentPlaceholder.FindControl("Information")).Text = debugMessage;
        }

        //Create a new SMTP Message and send it
        private void SendDocumentbyEmail(string destinationAddress,string senderAddress, string messageSubject, SPListItem document, SPList list)
        {
            string smtpServerAddress = "";

            string documentAuhtor = "";
            string documentName = "";
            string documentMajorVersion = "";
            string documentMinorVersion = "";
            string documentLenght = "";
            string documentUrl = "";

            string listUrl = "";
            string listName = "";

            Stream stream = null;
            try
            {
                debugMessage = debugMessage + "<br>SendDocumentbyEmail(" + destinationAddress + "," + senderAddress + "," + messageSubject + ",File,List)";
                SPWebApplication currentWebApplication = SPContext.Current.Site.WebApplication;

                //Get Information about OutboundMailServiceInstance
                SPOutboundMailServiceInstance smtpServer = currentWebApplication.OutboundMailServiceInstance;
                smtpServerAddress = smtpServer.Server.Address;
                debugMessage = debugMessage + "<br>Get OutboundMailServiceInstance Name : " + smtpServerAddress;
                //Set Document Information
                documentAuhtor = document.File.Author.ToString();
                documentName = document.File.Name;
                documentMajorVersion = document.File.MajorVersion.ToString();
                documentMinorVersion = document.File.MinorVersion.ToString();
                documentLenght = document.File.Length.ToString();
                documentUrl = document.Url.ToString();
                debugMessage = debugMessage + "<br>Get Document Information (Author, Name, Version, Lenght and Url)";

                //Set List Information
                listUrl = SPContext.Current.Web.Url + list.DefaultViewUrl;
                listName = SPContext.Current.Web.Name;

                debugMessage = debugMessage + "<br>Create MailMessage : new MailMessage(" + senderAddress + "," + destinationAddress + ")";
                MailMessage message = new MailMessage(senderAddress, destinationAddress);
                message.Subject = messageSubject;
                message.Bcc.Add(senderAddress);
                message.IsBodyHtml = true;
                message.Body = "This document was sent from the following SharePoint list: " +
                "<a href=\"" + listUrl + "\">" + listName + "</a>.<br><br>Author = " + documentAuhtor + "<br>Name : " + documentName + "<br>Major Version : " + documentMajorVersion +
                "<br>Minor Version : " + documentMinorVersion + "<br>Url : " + documentUrl;

                stream = document.File.OpenBinaryStream();
                debugMessage = debugMessage + "<br>Document Stream Opened";

                //Create the attachment without mime type information
                Attachment attachment = new Attachment(stream,"");

                attachment.Name = document.File.Name;
                message.Attachments.Add(attachment);
                debugMessage = debugMessage + "<br>Document set as attachment to the mail";

                debugMessage = debugMessage + "<br>Create SmtpClient : new SmtpClient(" + smtpServerAddress + ")";
                SmtpClient client = new SmtpClient(smtpServerAddress);

                debugMessage = debugMessage + "<br>Send the message";
                client.Send(message);

            }
            catch (Exception ex)
            {
                debugMessage = debugMessage + "<br>Error - SendDocumentbyEmail() : <br>Error Message : " + ex.Message + "<br>Stack Error : " + ex.StackTrace.ToString();
                isError = true;
            }
            finally
            {
                try
                {
                    stream.Close();
                }
                catch { }
            }

        }

        //Get the Sender Email Address
        private string GetSenderEmailAddress()
        {

            string fromEmailAddress = "";
            try
            {
                //Try to get the current connected user email address
                debugMessage = debugMessage + "<br>Get CurrentUser Email Address";
                fromEmailAddress = SPContext.Current.Web.CurrentUser.Email;
            }
            catch (Exception ex)
            {
                debugMessage = debugMessage + "<br>Error - SendButton_Click() : <br>Error Message : " + ex.Message + "<br>Stack Error : " + ex.StackTrace.ToString();
                try
                {
                    //Try to get the Sender Address used by the OutBoundMail Configuration
                    displaySenderTextBox = true;
                    debugMessage = debugMessage + "<br>Get OutboundMail Sender Mail Address";
                    fromEmailAddress = SPContext.Current.Site.WebApplication.OutboundMailSenderAddress.ToString();
                }
                catch (Exception e)
                {
                    debugMessage = debugMessage + "<br>Error - SendButton_Click() : <br>Error Message : " + e.Message + "<br>Stack Error : " + e.StackTrace.ToString();
                    fromEmailAddress = "";
                }
            }

            return fromEmailAddress;
        }

    }
}

<?xml version="1.0" encoding="utf-8" ?>
<Elements xmlns="http://schemas.microsoft.com/sharepoint/">
    <CustomAction
        Id="SendDocument.Link"
        RegistrationType="ContentType"
        RegistrationId="0x0101"
        Location="EditControlBlock"
        Sequence="350"
        Title="E-mail the Document"
        ImageUrl="/_layouts/IMAGES/EML16.GIF"
        Description="Allows a user to send a document by email as attachment." >
        <UrlAction Url="~site/_layouts/SendDocument.aspx?ItemId={ItemId}&amp;ListId={ListId}"/>
    </CustomAction>
</Elements>