Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1378 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  envoyer un mail avec outlook

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

envoyer un mail avec outlook

n°157912
gloops
Posté le 12-06-2002 à 17:00:13  profilanswer
 

Ici le but est d'envoyer simplement un mail avec outlook grace a vb j'ai un code qui devrait fonctionner mais n'envoi rien réellement
voici le code :
 
Private Sub Command1_Click()
' Start Outlook.
' If it is already running, you'll use the same instance...
   Dim olApp As Outlook.Application
   Set olApp = CreateObject("Outlook.Application" )
     
' Send a message to your new contact.
   Dim olMail As Outlook.MailItem
   Set olMail = olApp.CreateItem(olMailItem)
' Fill out & send message...
   olMail.ReplyRecipients = "kim@kim.com"
   olMail.To = "milkyway11@caramail.com"
   olMail.Subject = "About our meeting..."
   olMail.Body = " salut what's up ?"
   olMail.Send
     
 ' Clean up...
   MsgBox "All done...", vbMsgBoxSetForeground
   olNs.Logoff
   Set olNs = Nothing
   Set olMail = Nothing
   'Set olAppt = Nothing
   'Set olItem = Nothing
   Set olApp = Nothing
 
 
End Sub

mood
Publicité
Posté le 12-06-2002 à 17:00:13  profilanswer
 

n°157916
gloops
Posté le 12-06-2002 à 17:01:29  profilanswer
 

si qq a une idée :bounce:  
ca serait bien urbain...

n°157927
gloops
Posté le 12-06-2002 à 17:05:51  profilanswer
 

En fait il y a une ligne foireuse que je n'ai pas mise en commentaire c'est :
 
 olMail.ReplyRecipients = "kim@kim.com"
 
voilà si qq a une chtite idée.....

n°158323
Turk182
Strike Again !!!
Posté le 13-06-2002 à 10:53:24  profilanswer
 

Ben moi avec ce code ca marche :
 
Dim olapp As Object
  On Error Resume Next
    Set olapp = GetObject(, "Outlook.Application" )
  If Err.Number Then
    Err.Clear
    Set olapp = CreateObject("Outlook.Application" )
    If Err.Number Then
      MsgBox "Can't open Outlook."
   End If
  End If
  Set olMail = olapp.CreateItem(olMailItem)
  olMail.To = "mail@mail.es"
  olMail.Subject = ""
  olMail.Body = " "
  olMail.Display True ' ou olMail.Send
   
  MsgBox "Email enviado", vbMsgBoxSetForeground
   
   Set olMail = Nothing
  Set olapp = Nothing


Message édité par Turk182 le 13-06-2002 à 12:29:11

---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook
n°159284
gloops
Posté le 14-06-2002 à 12:01:19  profilanswer
 

oki merci... en fait moi ca merdait parce que mes comptes étaient configurés seulement dans Outlook express et pas dans Outlook tout court  :pt1cable:  
par contre g un autre petit souci je veux faire une boucle pour envoyer plusieurs emails à la fois mais Outlook-XP flippe que ca soit un virus et demande une confirmation à chaque mail emis je sais pas comment virer ca...
si qq sait comment faire ca serait sympa
 :hello:


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  envoyer un mail avec outlook

 

Sujets relatifs
Envoyer un mail vers exchange server depuis une page ASPEnvoyer un fax depuis un modem en Java ?
Envoi de formulaire par mail, comment ca marche ?[PHP] Test de la fonction mail() en local ?
pb avec la commande mail[Win2k] Comment envoyer des données sur le port LPT1?
Comprendre l'extension WAB de outlook[PHP] envoyer un fichier dans la base de données depuis une page
commande mail sous unix 
Plus de sujets relatifs à : envoyer un mail avec outlook


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR