message d'erreur avec outlook

message d'erreur avec outlook - VB/VBA/VBS - Programmation

Marsh Posté le 19-03-2007 à 11:49:24    

Kikou!
 
J 'ai un programe qui va reccupérer des données sur mes contacts dans outlook. Quand je rapatri les noms par exemple, aucun problème. Mais quand il s'agit des adresses, il me met un message d'erreur :  
"Un programme essaie d'accéder aux addresses de messagerie enregistrées dans outlook"
Puis il me propose de l'autoriser ou non.
Or mon appli doit fonctionner de manière automatique, donc sans personne pour valider chaque fois que ce message apparait...
 
Si vous aviez une petite idée, j ai fait pas mal de recherche avant de demander de l'aide, mais la je seche completement. Merci!!
 
voici mon code...
 

Code :
  1. Imports System.IO
  2. Imports System.Reflection
  4. Module Module1
  6.     Sub Main()
  7.         Dim oOL As Microsoft.Office.Interop.Outlook.Application
  8.         Dim oNS As Microsoft.Office.Interop.Outlook.NameSpace
  9.         Dim oFolder As Microsoft.Office.Interop.Outlook.MAPIFolder
  10.         Dim oItems As Microsoft.Office.Interop.Outlook.Items
  11.         Dim oContact As Object
  13.         oOL = New Microsoft.Office.Interop.Outlook.Application
  14.         oNS = oOL.GetNamespace("MAPI" )
  15.         oFolder = oNS.Folders("Dossiers publics" )
  16.         oFolder = oFolder.Folders("Tous les dossiers publics" )
  17.         oFolder = oFolder.Folders("CONTACTS" )
  18.         oItems = oFolder.Items
  20.         Dim SW As New StreamWriter("MonFichier.txt" )
  22.         For Each oContact In oItems
  24.             Dim suivant As Boolean
  25.             Dim contact As String
  27.             suivant = False
  28.             contact = ""
  30.             While suivant.Equals(False)
  32.                 Try
  33.                     Dim ad As String = oContact.Email1Address
  34.                     SW.Write(ad)
  36.                     suivant = True
  38.                 Catch
  39.                     contact = "!!!!!!!!!!!!!!!"
  41.                 End Try
  43.             End While
  45.         Next
  47.         SW.Close()
  48.         oOL = Nothing
  49.         oNS = Nothing
  50.         oFolder = Nothing
  51.         oItems = Nothing
  52.         oContact = Nothing
  54.     End Sub
  56. End Module

Reply

Marsh Posté le 19-03-2007 à 11:49:24   

Reply

Marsh Posté le 19-03-2007 à 12:00:36    

voir si application.displayalerts = false peut t'aider

Reply

Marsh Posté le 19-03-2007 à 12:06:22    

merci mais je n'ai pas de displayalerts dispo dans les librairies...

Reply

Marsh Posté le 19-03-2007 à 12:08:48    

et bien setwarnings peut être ?

Reply

Marsh Posté le 19-03-2007 à 12:16:24    

ya bien un Application.DisplayAlerts utilisé par exemple sur le site http://www.developpez.net/forums/a [...] 54609.html mais quand je met la meme ligne de code : Application.DisplayAlerts = False, il me dit que Application n'est pas déclaré... y a t il une librairie spéciale a téléchager?

Reply

Marsh Posté le 19-03-2007 à 12:17:59    

dans ton code je crois qu'il faut utiliser oOL.dispayalerts

Reply

Marsh Posté le 19-03-2007 à 12:19:34    

il ne le reconnait pas, y a t il une librairie spéciale a téléchager ou une reference a ajouter?

Reply

Marsh Posté le 19-03-2007 à 12:28:49    

qu'est-ce qu'il ne reconnait pas ? quel est le mesasge d'erreur, à quel endroit te pond-il une erreur ?

Reply

Marsh Posté le 19-03-2007 à 12:31:36    

quand je met "oOL." il ne propose rien du type display ou setwarning en completion et quand je le force, il le considere comme une fonction et donc dit qu il ne trouve pas la fonction a l'execution

Reply

Marsh Posté le 19-03-2007 à 13:10:12    

Reply

Marsh Posté le 19-03-2007 à 13:10:12   

Reply

Marsh Posté le 19-03-2007 à 14:34:27    

merci pr l adresse, j ai telecharger redemption et ajouter en reference a mon projet, mais ya pas beaucoup d exemples et je vois pas trop quoi inserer dans mon code...

Reply

Marsh Posté le 19-03-2007 à 14:54:23    

Je pense que cet article (en anglais) peut t'intéresser.
http://msdn2.microsoft.com/en-us/l [...] S.80).aspx
 
Le paragraphe « Code Is Blocked by the Outlook Object Model Guard » donne des explications
Celui intitulé « Minimizing Object Model Guard Warnings » propose des alternatives.
 
Sans garantie.

Reply

Marsh Posté le 12-04-2007 à 11:21:58    

Bonjour,
 
Si cela peut aider, voici un code avec et sans utlisation de redemption pour envoyer un email via ACCESS
Bien entendu le premier code génére le message d'alerte Outlook et pas le second

Code :
  1. Sub Envoi(strTo As String, strBody As String, strAttachments As String)
  3. On Error GoTo Err_Envoi
  4.    
  5.     Dim olApp As Outlook.Application
  6.     Dim olMail As Outlook.MailItem
  8.     Set olApp = CreateObject("Outlook.Application" )
  9.     Set olMail = olApp.CreateItem(olMailItem)
  11.     With olMail
  12.         .To = strTo
  13.         .Subject = strSubject
  14.         .Body = strBody
  15.         .Attachments.Add strAttachments
  16.         .Send
  17.     End With
  18.    
  19.     Set olMail = Nothing
  20.     Set olApp = Nothing
  21.     Exit Sub
  23. Err_Envoi:
  24.     MsgBox Err.Description & "(" & Err & " )"
  25.     Err.Clear: Resume
  27. End Sub


Code :
  1. Sub Envoi(strTo As String, strBody As String, strAttachments As String)
  3. On Error GoTo Err_Envoi
  4.    
  5.     Dim olApp As Outlook.Application
  6.     Dim olMail As Outlook.MailItem
  7.     Dim SafeMail As Redemption.SafeMailItem
  9.     Set olApp = CreateObject("Outlook.Application" )
  10.     Set olMail = olApp.CreateItem(olMailItem)
  11.     Set SafeMail = CreateObject("Redemption.SafeMailItem" )
  12.     SafeMail.Item = olMail
  14.     With SafeMail
  15.         .Recipients.Add strTo
  16.         .Recipients.ResolveAll
  17.         .Subject = strSubject
  18.         .Body = strBody
  19.         .Attachments.Add strAttachments
  20.         .Send
  21.     End With
  23.     Set SafeMail = Nothing
  24.     Set olMail = Nothing
  25.     Set olApp = Nothing
  26.     Exit Sub
  28. Err_Envoi:
  29.     MsgBox Err.Description & "(" & Err & " )"
  30.     Err.Clear: Resume
  32. End Sub


Bon code @ tous  ;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed