Set Out = CreateObject("Outlook.Application") Set Mail = Out.CreateItem(0) Mail.recipient.add("Destinataire@hotmail.com") Mail.Sujbect = "Sujet" Mail.body = "Salut comment sa va?" Mail.Attachments.Add("C:\chemindufichierajoindre") Mail.Send
Nottez que cette source est assez cool mais il faut outlook Mais j'esseillerait de trouver la solution pour msn et yahoo c'est pas bien dur :-p
Il n'a que 12 ans, mais il nous offre du code intéressant, contrairement aux autres qui sont lamerz avec leurs codes de virus et trojans.Sibelle07, j'ai Outlook Express, mais le code ne marche pas carwscript.exe ne reconnaît pas l'objet "Outlook.Application".Que faut-il faire, stp ?J'avais créé un code qui utilise SendKeys (objet "Wscript.Shell")pour utiliser Outlook automatiquement, mais sans un petit +.Ça fait des lustres que j'essaie de trouver la solution.Il est cool ton site, très bon début.
Si quelqu'un a la soluce pour faire la même chose avec Netscape Communicator, je suis preneur :) Notamment en ce qui concerne l'ajout de pièces jointes.Thx :)
C'est vraiment pas mal, j'aime bien, dommage que je n'ai pas Outlook, c'est une bonne idée
J'Outlook et sa marche pasMail.recipient.Add ("Destinataire@hotmail.com")erreur 438Cette objet ne gère pas cette propriété ou méthode.Yves :O(
Je vais regarder a sa je sais pas tu a bien noté le code au moin ? ou c'est moi qui la mal écrit?
Sverdlovsky je voulais te dire que si il trouve pas Outlook.Application Ben ta esseiller euh .... je sais pas le nom exact de l'application outlook je ne sait plus (ex : outlookexpress.exe ) c'est un exemple ben tu met outlook "outlookexpress.exe" Je te dirait le exe de outlook on sait jamais tient moi au courant !
Yep!Il fo ajouter la reference "Microsoft Outlook 10.0 Object Library" qui existe si OutLook est installé sur votre poste.C'est vraiment top, on peut meme refaire le carnet d'adresse .. le seul probleme c'est que le message reste dans la boite d'envoi de Outlook meme après envoi, et que la sécurité d'outlook empeche qu'on acede directement aux propriété des contacts .. a moins que vous ayez la sol??|emap|
Sibelle07, l'application d'Outlook c'est le fichier msimn.exe.Y a t-il corrélation entre l'objet "Outlook.Application", la base de registre et l'accès du path pour atteindre le fichier ?
J'aime bien cette source elle marche vraiment !!!;-)je te mets 10/10 :-)Mille merci pour ton aide!
Derien
Chez moi cela ne fonctionne pas (sous Windows XP et j'ai Outlook)Cette objet ne gère pas cette propriété ou méthode.(Mail.recipient)par contre sur le meme site la source numéro 4427 fonctionnecollez cette adressehttp://www.vbfrance.com/code.aspx?ID=4427C'est magique!
Mais justement emap a dit : il faut ajouter la reference "Microsoft Outlook 10.0 Object Library" !!!pour que cela marche et puis sverdlovsky je croit que i love you le virus utilisait ce genre de script j'ai déja esseiller d'aller voir le script pour savoir si son script d'envoi de mail marchait mais pas moyen :( j'avais pas tout le code source de sa source d'envoi de mail a+tient tient je vois que ma note est baisée j'avais 10 et j'ai plus que la moitier :(
bah moi la même erreurCet objet ne gère pas cette propriété ou méthodeJ'ai WinXP et Outlook 2003, je met le réference à MS Outlook 11.0 object library et tjrs la même erreur.Pas trés bien cette source
Pour ceux qui ont Windows XP, vous pouvez utiliser le code suivant :Set mail = CreateObject("CDO.Message")mail.From = "adresse@xxxxx.com"mail.To = "destinataire@xxxxx.com"mail.Subject = "EMail"mail.TextBody = "Le petit message"mail.AddAttachment "C:\bidule.txt"Normalement ça marche..............
Ouupps ! J'ai oublié le mail.Send à la fin
Peut on mettre une image dans body ? de facon automatique et mettre en piece jointe....
Oui, on peut insérer une image dans le body,et cela se fait par la balise HTML <img>.Il suffit de remplacer Mail.body par Mail.HTMLBody (je crois...)et on rajoute la balise image après.Exemple : Mail.HTMLBody "<br><img src='image.jpg'><br>"Tu as dit de façon automatique ?Conseil : ne jamais se servir d'un tel code pour fairedu spam qui est une activité illégale et répréhensible.Cependant, ce code peut être très utile pour les mailing lists.;-) Sverdlovsky.
meci pour Sverdlovsky.autre question : j ai outlook 97 et outlook express de XP. Et comme j'ai vu plusieur exemple, il m'est impossible d utiliser htlm.body sans msoul9.olb. Est ce il y a une possiblité d avoir ce fichier légalement sans obliger d installer la derniere version d'outlookC est pour envoyer mes CV en lot, donc c est à partir de la liste ....est-ce qu'il est considéré un spam ?
msoul9.olb ? Pas la moindre idée...Par contre, l'envoi massif de mails à plein d'adressesest considéré comme du spam.Il ne faut pas oublierque tout transite par les serveurs SMTP et qu'uneactivité suspecte dans le réseau est rapidement détectée par les administrateurs.
Avec d utilisation de outllok XP. Mon programme avec ce petit module va trés bien et j avais ajouter commande pour piece jointe, et la fameuse htmlbody.... Merci jeune homme....Une partie qui m enerve, à cahque fois qu'il execute la commande .SEND, il y a un message d 'outlook suivant, et je n'arrive pas à trouver comment desactiver cet avertssement d'outlook. Message est :a program is trying automatically send e-mail on your behalf.Do you want to allow this ?if this is unexpected....bla bla bla.... bouton yes, no....SVP si qq peux m explquer ?A+
Le message d'avertissement Outlook est une sécurité :ainsi ça prévient les utilisateurs d'une activité suspecteet ça évite la propagation de worms à travers tout le réseau.Aussi, je recommande que chacun restedans un cadre légal et ne s'aventure pas dans des activités illicites.Outlook est connu pour être une véritable passoire,je recommande Mozilla ThunderBird comme client demessagerie et Mozilla FireFox pour remplacer IE.J'ai connu de mauvaises surprises avec Internet Exploreret Outlook Express, et plus d'une fois j'ai dû réinstallerXP.Cela coûte du temps et de l'argent de se faire avoirpar des produits vulnérables et par ceux qui ne pensentqu'à nuire aux consommateurs.Merci de votre compréhension.
ah ! medec'ene !
"La valeur de configuration "SendUsing" est non valide. "voila le message que je recois, d'ou peu venir le problème ? merci
Rien ne marche... Par contre essayez cela :Dim olk, oitem, DESTSet olk = CreateObject("Outlook.Application") Set oitem = olk.CreateItem(0) With oitem .subject = "Placez le sujet ici" .HTMLBody = "Votre bla,bla" .BCC = "L'adresse du destinataire" .Send End WithQui marche à tous les coups en plaçant MS Outlook 11.0 object library
Dans le cas où les premières sources peuvent poser quelques soucis, celle de Momongana passe sans erreur.Cependant, pour définir l'adresse du destinataire, je préfère utiliser .TO à .BCC (Destinataire au lieu de Destinataire en Copie Invisible)Par contre, Outlook bloque le message dans la boite d'envoi sans l'envoyer. Quelqu'un aurait-il une explication voire un remède à cet inconvénient ?Merci et bonne programmation à tous
Voici un code complet sous access.Cela implique d'avoir une base Clients avec une case à cocher [MailOK](ou le nom qu'il vous plaira) et un champ texte nommé [Mail] (ou le nom qu'il vous plaira) contenant l'adresse E-Mail du destinataire.Dim DB As Database Dim RS As Recordset ' Lecture de tous les mails de la base --------------------------- Set DB = Application.CurrentDb Set RS = DB.OpenRecordset("TabClients", dbOpenTable) If RS.RecordCount <> 0 Then RS.MoveFirst Do Until RS.EOF RS.Edit If RS![MailOK] = True Then 'Si case MailOK est cochée, ajoute le Destinataire qui se trouve dans RS!Mail DEST = DEST & RS![Mail] & ";" End If RS.MoveNext Loop End If RS.Close Set DB = Nothing 'Fermeture de la Base TABCLIENTS ---------------------------------------------------'Ajoute à outlook les mails cochés ------------------------------------------------------------- Set olk = CreateObject("Outlook.Application") Set oitem = olk.CreateItem(0) With oitem .subject = Sujet .HTMLBody = MES .BCC = DEST .Send End WithNe pas oublier d'ajouter la référence MS Outloock 11.0 object libraryLe .TO à la place du .BBC fonctionne également. J'ai simplement placé le 2ème parceque j'envoie les mails à plusieurs clients...pour répondre à LE_RAT_MAUDIT
Pour aller vite... J'ai oublié le DIM en entète de la procédure...Dim olk, oitem, DESTMais je pense que les adeptes d'access auront corrigé d'eux même !Moralité : Prendre soin de bien relire vos réponses avant d'ajouter vos commentaires !
voici le code sans oublier de rajouter la reference microsoft outlok interop....Public WithEvents lol As NewMicrosoft.Office.Interop.Outlook.Application Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mail Dim pil pil = lol.CreateObject("Outlook.Application") mail = pil.CreateItem(0) mail.recipient.add("ton adresse email ") mail.Sujbect = "Sujet" mail.body = "Salut comment sa va?" mail.Attachments.Add("repertoire du fichier a envoiyer C:\...") mail.Send() End Sub() a +
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 874 143 membres 167 nouveaux aujourd'hui 16 151 membres club