VBSMAIL (OUTLOOK)

Commentaire de Sibelle07 le 14/09/2003 19:43:00

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

Commentaire de Rrominet le 15/09/2003 13:19:48

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 :)

Commentaire de sadate le 15/09/2003 18:39:52

J'Outlook et sa marche pas
Mail.recipient.Add ("Destinataire@hotmail.com")
erreur 438
Cette objet ne gère pas cette propriété ou méthode.

Yves :O(

Commentaire de Sibelle07 le 16/09/2003 15:40:31

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 !

Commentaire de Sverdlovsky le 16/09/2003 22:21:10

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 ?

Commentaire de Sibelle07 le 06/10/2003 17:29:36

Derien

Commentaire de Sibelle07 le 29/12/2003 14:15:05

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 :(

Commentaire de algori le 16/01/2005 13:51:05

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..............

Commentaire de FouBasic le 16/02/2005 22:52:20

Peut on mettre une image dans body ? de facon automatique et mettre en piece jointe....

Commentaire de FouBasic le 17/02/2005 15:37:28

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'outlook

C est pour envoyer mes CV en lot, donc c est à partir de la liste ....est-ce qu'il est considéré un spam ?

Commentaire de FouBasic le 07/03/2005 05:05:13

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+

Commentaire de lolishe le 03/04/2005 13:30:15

ah ! medec'ene !

Commentaire de momongana le 31/01/2007 08:46:02

Rien ne marche... Par contre essayez cela :

Dim olk, oitem, DEST
Set 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 With
Qui marche à tous les coups en plaçant MS Outlook 11.0 object library

Commentaire de momongana le 16/02/2007 05:46:17

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 With
Ne pas oublier d'ajouter la référence MS Outloock 11.0 object library
Le .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