> Tous les forums > Forum Bureautique
 creer un macro envoie de mail
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
45phh
  Posté le 09/03/2009 @ 19:58 
Aller en bas de la page 
Astucien

bonjour

j ai créé un petit formulaire sous excel et j aimerais l envoyer par mail

il s agit de fiche de rdv avec les noms prenom date heures ....

donc apres avoir rempli les cases un bouton valider et envoyer me serait utile mais je ne sais comment faire

je me doute qu une macro doit etre créée mais je ne sais pas faire

si vous avez une piste .....voire meme la solution je suis preneur

merci

Publicité
Obelix73
 Posté le 10/03/2009 à 09:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Ci-dessous une macro qui fonctionne très bien, à tester puis a adapter selon tes gouts

J'ai moi-même récupéré cette macro sur PC Astuces, que je remercie encore.

@+

Obelix73

Sub EnvoiCourriel()

Dim Wbk As Workbook

ActiveSheet.Range("B2:H10").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "bonjour ," & vbCrLf & vbCrLf _
& "ci joint: Mon questionnaire à remplir pour le bla bla bla." & vbCrLf & vbCrLf _
& "Cordialement," & vbCrLf _
& "Service des questionnaires" & vbCrLf _
& Application.UserName
'.Item.To = "adresse1;adresse2;adresse3" 'en mode réel mettre les adresses de tes différents destinataires
.Item.To = "adresse la tienne" ' en phase test mettre ton adresse
.Item.Subject = "Questionnaire" 'objet du Courriel
.Item.Send
Set Wbk = ActiveWorkbook
SendKeys "{E}"
End With
Set Wbk = Nothing
Sheets("Feuil1").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub

45phh
 Posté le 10/03/2009 à 14:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

merci mais j ai un bug car


quoi faire merci



Modifié par 45phh le 10/03/2009 14:27
vieuxmonsieur
 Posté le 10/03/2009 à 14:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour 45pph, obelix73, le forum,

vérifie (Alt + F11) si dans Outils, Références

la case Microsoft Office 11 Object Library est coché si non, la cocher

bonne fin de journée

Bérylion
 Posté le 10/03/2009 à 14:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut
sinon j'ai plus simple :
Sub mail()
ActiveSheet.Copy
Dim dest As String
dest = InputBox("Entrer le(s) destinataire(s)", "Adresse(s) de(s) destinataire(s)")
ActiveWorkbook.SendMail (dest), "Envoi d'un document : " & ActiveWorkbook.name
ActiveWorkbook.Close SaveChanges:=False
End Sub
(c'est du vrac, faudra retailler un peu...)
45phh
 Posté le 10/03/2009 à 17:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

merci mais décidement je n y arrive pas

de plusj ai un peu oublié de préciser quej aimerais envoyer le mail via le logiciel de messagerie pas default



Modifié par 45phh le 10/03/2009 17:12
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
44,90 €Répéteur WiFi TP-Link RE455 AC1750 Dual-band à 44,90 €
Valable jusqu'au 26 Janvier

Amazon fait une promotion sur le répéteur TP-Link RE455 AC1750 Dual-band qui passe à 44,90 € et livré gratuitement. Ce répéteur qu'on trouve ailleurs à partir de 61 € va vous permettre d'augmenter grandement la portée de votre WiFi 802.11 b/g/n et ac jusqu'à 140 m² à 1750 Mbit/s. Avec son port Ethernet, ce répéteur peut également faire office de point d'accès sans fil et de pont WiFi. Compatible avec tous les box Internet et routeurs WiFi.


> Voir l'offre
59,90 €Tablette Graphique Wacom Intuos M à 59,90 €
Valable jusqu'au 26 Janvier

Amazon fait une vente flash sur la tablette graphique Wacom Intuos M qui passe à 59,90 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 85 €. Cette tablette de 10 pouces est idéale pour le dessin débutant. Elle comprend la technologie de pointe du stylet Wacom et la technologie tactile et un logiciel de création téléchargeable.


> Voir l'offre
529,90 €Ultrabook HONOR MagicBook 14 (Ryzen 5 3500U, 8Go, 256 Go SSD) à 529,90 €
Valable jusqu'au 02 Février

HONOR fait une promotion sur son ultrabook HONOR MagicBook 14 qui passe à 529,90 € au lieu de 600 €. Cet ordinateur portable possède un écran 14 pouces Full HD IPS, un processeur AMD Ryzen 5 3500U (avec chip graphique Vega 8), 8 Go de mémoire DDR4, un SSD 256 Go PCIe NVME, le WiFi5 / Bluetooth 5.0, un lecteur d'empreintes, une webcam, un clavier rétro éclairé, une batterie 56 Wh (jusqu'à 10h d'autonomie) et ne pèse que 1,38 kg. Il fonctionne sous Windows 10. Une très bonne affaire pour une machine compacte et puissante.


> Voir l'offre

Sujets relatifs
Macro pour créer un Gencode sur Excel - EAN 18
creer une macro(bis)
creer une macro
Macro pour un envoi feuille excel par mail
outlook certains mail bloqués en boite d'envoie
envoie de mail groupe
Envoie Mail avec piece jointe ACCESS 2007
Créer une Macro dans Word 2010
Google agenda n'envoie plus de mail de notificatio
Windows Live mail - créer une désinscription
Plus de sujets relatifs à creer un macro envoie de mail
 > Tous les forums > Forum Bureautique