envoi mail outlook

tout ce que je peut te dire c'est qu'apparement VBA est different entre excel word et outlook voici l'aide en ligne d'outlook sur le Outlook.application si cela peut te servir (outlook 2000)

Représente l'intégralité de l'application Microsoft Outlook. Il s'agit du seul objet de la hiérarchie pouvant être renvoyé à l'aide de la méthode CreateObject ou de la fonction Visual Basic intrinsèque GetObject.

L'objet Application d'Outlook sert plusieurs objectifs :

En tant qu'objet racine, il permet d'accéder à d'autres objets de la hiérarchie Outlook.


Il permet d'accéder directement à un nouvel élément créé à l'aide de la méthode CreateItem, sans avoir à parcourir la hiérarchie d'objets.


Il permet d'accéder aux objets actifs de l'interface (l'Explorateur et l'inspecteur)
Utilisation de l'objet Application

Lorsque vous utilisez Automation pour contrôler Microsoft Outlook à partir d'une autre application, la méthode CreateObject vous permet de créer un objet Application Outlook.

Cet exemple Visual Basic Édition Applications montre comment démarrer Microsoft Outlook (s'il n'est pas déjà en cours d'exécution) et ouvrir le dossier Boîte de réception par défaut.

Set myOlApp = CreateObject('Outlook.Application')
Set myNameSpace = myOlApp.GetNameSpace('MAPI')
Set myFolder= _
myNameSpace.GetDefaultFolder(olFolderInbox)
myFolder.Display
Cet exemple Visual Basic Édition Applications montre comment utiliser l'objet Application pour créer et ouvrir un nouveau contact.

Set myOlApp = CreateObject('Outlook.Application')
Set myItem = myOlApp.CreateItem(olContactItem)
myItem.Display

M'enfin
G.David

Bonsoir vinc26, G.David, le Forum.

vinc26, sauf erreur de ma part, pour que ton code fonctionne (et également celui de G.David je pense), il te faut référencer la bibliothèque d'objets de l'application Outlook dans ton projet VBA.

Pour ce faire, dans l'éditeur VBE :[ol][li]Faire menu Outils / Références...[/li]
[li]Sélectionner et cocher dans la liste la bibliothèque 'Microsoft Outlook XX.X Object Library'[/li]
[li]Valider par OK.[/li][/ol]XX.X dépend de ta version d'Outlook (chez moi, pour Outlook 2002, c'est 10.0).

Cordialement.

merci pour vos aides
le souci maintenant c'est que ca lance un message mais avant de l'envoyer j'ai une fenetre outlook me disant si on veut vraiement l'envoyer et que ca risque d'etre un virus
y'a t'il un moyen pour enlever cette fenetre et envoyer un message sans piece jointe par contre directement
juste du text
merci d'avance

sais pas peut etre untruc du genre display.alert mais c'est
Sans Garantie David Guy
enfin si tu trouves tiens nous au courant (sur ce fil)
Cordialement
G.David

Salut à tous

il n'y a pas de moyen de l'enlever, perso j'utilise un petit logiciel qui s'appelle click yes, la fenetre s'ouvre et click oui pour toi.

ça marche chez moi.

http://faq.outlook.free.fr/telechargement/ClickYesSetup.exe


tcho

bonjour Vinc26 , Didier , G.David et David

dans les liens ci dessous tu trouveras des methodes pour envoyer les messages sans demande de confirmation


Lien supprimé

Lien supprimé


bonne soiree
MichelXld

solution pour envoyer un email sans message aussi
'Create variable
Dim objAddressee

'Point it to a CDO addressee object
Set objAddressee = CreateObject('CDO.Addressee')
'Set the address to send to
objAddressee.emailaddress = 'addresse mail'
'Declare the message variable, Msg
Dim Msg

'Since this is VBScript, you must use the CreateObject method.
Set Msg = CreateObject('CDO.Message')
With Msg
.To = 'adresse mail'
.From = 'toto'
.Subject = 'essai'
.TextBody = 'essai1'
' .AddAttachment 'file://c:/3-2005.log'
.Configuration.Fields.Item(') = 25
.Configuration.Fields.Item(') = 2
.Configuration.Fields.Item(') = '' nom du serveur smtp
.Configuration.Fields.Update
.send
End With