> 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


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