envoyer un mail avec outlook - VB/VBA/VBS - Programmation
Marsh Posté le 12-06-2002 à 17:05:51
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.....
Marsh Posté le 13-06-2002 à 10:53:24
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
Marsh Posté le 14-06-2002 à 12:01:19
oki merci... en fait moi ca merdait parce que mes comptes étaient configurés seulement dans Outlook express et pas dans Outlook tout court
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
Marsh Posté le 12-06-2002 à 17:00:13
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