Astuces Excel
  1. Astuces Excel
  3. Mac Excel envoyer un email
Intereting Posts
Comment changer le format des cellules Excel en utilisant C # Je souhaite écrire une macro qui supprime toutes les lignes contenant une date supérieure à X jours pour une colonne Ouvrez le file excel dans vb.net avec l'option de sélection par défaut mysql pour accéder à la connection excel VBA Erreur d'exécution 1004 sur les cellules (…). Formule Masquer les lignes en fonction des données de la cellule Différencier les numéros et la date dans MSExcel Imprimer datatables traitées à partir de plusieurs files CSV ¿Comment get l'adresse exacte d'une cellule? (VB.NET/INTEROP.EXCEL) Affecter un numéro de série en fonction de la valeur de la colonne dans Excel Excel 2007 – 1004 Erreur d'exécution Tableau des requêtes d'actualisation ExcelReader via la tableur-lecteur-maître Excel VBA: nom de variable dynamic Meilleur moyen de valeurs nettes dans les rangées successives de CSV L'édition programmée xlsx XML provoque une corruption

Mac Excel envoyer un email

J'ai un rapport que j'aimerais envoyer par excel. il inclura les bénéficiaires, le sujet et les informations dans le corps. En fait, il pourrait copyr les cellules en question. Ce que j'ai fait jusqu'ici, c'est créer un button et lui atsortingbuer une macro avec ce code: 

Private Sub CommandButton1_Click() Application.Dialogs(xlDialogSendMail).Show arg1:=Sheets("Sheet1").Range("E3"), _ arg2:=Sheets("Sheet1").Range("E7") End Sub

Le problème est que cette command envoie le classur comme pièce jointe.

Quelqu'un peut-il m'aider avec le code qui me permettra de le faire?

Merci un million!

à votre santé

    Définissez une reference à la "Bibliothèque d'objects Microsoft Outlook xx.x" et vous pouvez utiliser ce code comme exemple de ce qu'il faut faire pour créer ou envoyer un courrier électronique:

    Comme c'est le cas, il suffit d'afficher le courrier électronique sans l'envoyer. Vous pouvez commenter la ligne .display et décommenter la .send pour l'envoyer. 

     Sub EmailFromExcel() On Error GoTo PROC_EXIT Dim OL As New Outlook.Application Dim olMail As Outlook.MailItem Set olMail = OL.CreateItem(olMailItem) Dim SrcSheet As Excel.Worksheet Set SrcSheet = Sheets("Sheet1") With olMail .To = SrcSheet.Range("E3").Text .Subject = SrcSheet.Range("E7").Text .Body = SrcSheet.Range("E12").Text .Display vbModal '.Send End With PROC_EXIT: On Error GoTo 0 OL.Quit Set OL = Nothing End Sub

    Ajouter une reference à la bibliothèque COM de outlook; alors vous pouvez copyr / coller des valeurs et mettre en forme ce dont vous avez besoin pour une nouvelle feuille, puis copyr cela dans le courrier Outlook.