Bonjour,
Voici mon probleme:
Je rentre plusieurs parametres dans ma feuille1(titre, listedif,...)
Je genere un modele de contenu de mail dans ma feuille2.
Je voudrais copier la range "model" de la feuille 2 dans le body du mail.
est-ce possible ?
Voici le code que j'utilise qui marche pas...
Voici comment je l'appelle :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Dim textMail As String, lorigine As String, adresseMail As String, lesujet As String, retour As Integer Function mail(adresse As String, sujet As String, myrange As String, origine As String) ' Fonction de mail Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.CreateItem(0) 'MonMessage.From = origine MonMessage.To = adresse MonMessage.Subject = sujet 'MonMessage.Body =message Worksheets("Feuil2").range(myrange).Paste Destination:=Body MonMessage.Send End Function
Ce code plante à la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub CommandButton1_Click() Dim textMail As String, lorigine As String, adresseMail As String, lesujet As String, retour As Integer textMail = "A1:I30" adresseMail = "kiki@koko.fr" lesujet = "sujet du mail" retour = mail(adresseMail, lesujet, textMail, lorigine) End Sub
Message d'erreur --> Ppté ou méthode non géré par cet objet.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Worksheets("Feuil2").range(myrange).Paste Destination:=Body
Merci à vous
Partager