.Display '.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le
mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Remplace les Feuil1 si besoin pas le nom de l'onglet il y en a 3 chaque cellule sera séparée pas 2 espaces rien ne t'empêche d'y modifier Pour l'image ou l'arriere plan je n'ai pas de solution Youky
Dim ol As New Outlook.Application Dim olmail As MailItem Dim CurrFile As String 'la variable mytx est de(A7:G24) For lig = 7 To 24 For col = 1 To 7 mytx = mytx & Sheets("Feuil1").Cells(lig, col) & " " Next mytx = mytx & vbCr Next
Set ol = New Outlook.Application Set olmail = ol.CreateItem(olMailItem) With olmail .To = [Feuil1!B3] 'en B3 l'adresse destinataire .Subject = [Feuil1!B4] 'ici le sujet .Body = mytx 'ici le texte de A7:G24 .Display '.Send End With End Sub
"Sliderone" a écrit dans le message de news:
Merci pour votre intérêt Youky
En fait je me suis mal exprimé j'ai des données dans une plage qui ce trouve entre A7 et G24 et je voudrais quelle apparaisse dans mon Email.
Comment je peux faire pour mètre une image en background en code VBA ?
Merci d'avance
------------------------------------
Sub SendMail_Outlook()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim ol As New Outlook.Application Dim olmail As MailItem Dim CurrFile As String
Set ol = New Outlook.Application Set olmail = ol.CreateItem(olMailItem) With olmail
.Display '.Send 'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display) End With End Sub
Remplace les Feuil1 si besoin pas le nom de l'onglet
il y en a 3
chaque cellule sera séparée pas 2 espaces
rien ne t'empêche d'y modifier
Pour l'image ou l'arriere plan je n'ai pas de solution
Youky
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
'la variable mytx est de(A7:G24)
For lig = 7 To 24
For col = 1 To 7
mytx = mytx & Sheets("Feuil1").Cells(lig, col) & " "
Next
mytx = mytx & vbCr
Next
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = [Feuil1!B3] 'en B3 l'adresse destinataire
.Subject = [Feuil1!B4] 'ici le sujet
.Body = mytx 'ici le texte de A7:G24
.Display '.Send
End With
End Sub
"Sliderone" <Sliderone@discussions.microsoft.com> a écrit dans le message de
news: A056C02F-DA47-47C9-88AD-113AA58F1837@microsoft.com...
Merci pour votre intérêt Youky
En fait je me suis mal exprimé j'ai des données dans une plage qui ce
trouve
entre A7 et G24 et je voudrais quelle apparaisse dans mon Email.
Comment je peux faire pour mètre une image en background en code VBA ?
Merci d'avance
------------------------------------
Sub SendMail_Outlook()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools /
Reference / Cocher "Microsoft Outlook Library"
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.Display '.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le
mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub
Remplace les Feuil1 si besoin pas le nom de l'onglet il y en a 3 chaque cellule sera séparée pas 2 espaces rien ne t'empêche d'y modifier Pour l'image ou l'arriere plan je n'ai pas de solution Youky
Dim ol As New Outlook.Application Dim olmail As MailItem Dim CurrFile As String 'la variable mytx est de(A7:G24) For lig = 7 To 24 For col = 1 To 7 mytx = mytx & Sheets("Feuil1").Cells(lig, col) & " " Next mytx = mytx & vbCr Next
Set ol = New Outlook.Application Set olmail = ol.CreateItem(olMailItem) With olmail .To = [Feuil1!B3] 'en B3 l'adresse destinataire .Subject = [Feuil1!B4] 'ici le sujet .Body = mytx 'ici le texte de A7:G24 .Display '.Send End With End Sub
"Sliderone" a écrit dans le message de news:
Merci pour votre intérêt Youky
En fait je me suis mal exprimé j'ai des données dans une plage qui ce trouve entre A7 et G24 et je voudrais quelle apparaisse dans mon Email.
Comment je peux faire pour mètre une image en background en code VBA ?
Merci d'avance
------------------------------------
Sub SendMail_Outlook()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim ol As New Outlook.Application Dim olmail As MailItem Dim CurrFile As String
Set ol = New Outlook.Application Set olmail = ol.CreateItem(olMailItem) With olmail
.Display '.Send 'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display) End With End Sub