message d'erreur avec outlook

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : message d'erreur avec outlook

lily333

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 :

Imports System.IO
Imports System.Reflection
Module Module1
Sub Main()
Dim oOL As Microsoft.Office.Interop.Outlook.Application
Dim oNS As Microsoft.Office.Interop.Outlook.NameSpace
Dim oFolder As Microsoft.Office.Interop.Outlook.MAPIFolder
Dim oItems As Microsoft.Office.Interop.Outlook.Items
Dim oContact As Object
oOL = New Microsoft.Office.Interop.Outlook.Application
oNS = oOL.GetNamespace("MAPI" )
oFolder = oNS.Folders("Dossiers publics" )
oFolder = oFolder.Folders("Tous les dossiers publics" )
oFolder = oFolder.Folders("CONTACTS" )
oItems = oFolder.Items
Dim SW As New StreamWriter("MonFichier.txt" )
For Each oContact In oItems
Dim suivant As Boolean
Dim contact As String
suivant = False
contact = ""
While suivant.Equals(False)
Try
Dim ad As String = oContact.Email1Address
SW.Write(ad)
suivant = True
Catch
contact = "!!!!!!!!!!!!!!!"
End Try
End While
Next
SW.Close()
oOL = Nothing
oNS = Nothing
oFolder = Nothing
oItems = Nothing
oContact = Nothing
End Sub
End Module

Publicité

jpcheck

Pioupiou

voir si application.displayalerts = false peut t'aider

lily333

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

jpcheck

Pioupiou

et bien setwarnings peut être ?

lily333

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?

jpcheck

Pioupiou

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

lily333

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

jpcheck

Pioupiou

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

lily333

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

kiki29

Utiliser http://www.dimastr.com/redemption/

Publicité

lily333

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

tegu

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.

bukaroo

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 :

Sub Envoi(strTo As String, strBody As String, strAttachments As String)
On Error GoTo Err_Envoi
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Set olApp = CreateObject("Outlook.Application" )
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = strTo
.Subject = strSubject
.Body = strBody
.Attachments.Add strAttachments
.Send
End With
Set olMail = Nothing
Set olApp = Nothing
Exit Sub
Err_Envoi:
MsgBox Err.Description & "(" & Err & " )"
Err.Clear: Resume
End Sub

Code :

Sub Envoi(strTo As String, strBody As String, strAttachments As String)
On Error GoTo Err_Envoi
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim SafeMail As Redemption.SafeMailItem
Set olApp = CreateObject("Outlook.Application" )
Set olMail = olApp.CreateItem(olMailItem)
Set SafeMail = CreateObject("Redemption.SafeMailItem" )
SafeMail.Item = olMail
With SafeMail
.Recipients.Add strTo
.Recipients.ResolveAll
.Subject = strSubject
.Body = strBody
.Attachments.Add strAttachments
.Send
End With
Set SafeMail = Nothing
Set olMail = Nothing
Set olApp = Nothing
Exit Sub
Err_Envoi:
MsgBox Err.Description & "(" & Err & " )"
Err.Clear: Resume
End Sub

Bon code @ tous

FORUM HardWare.fr

Programmation

VB/VBA/VBS

message d'erreur avec outlook

Sujets relatifs
[SDL] Erreur de compilation sous Windows	une erreur que j'avais jamais vu
Reccuperation automatique des contacts publics d outlook	automatisation outlook
Message Dlg	erreur Access Violation
erreur en c++ sous ubuntu	Erreur php/mysql
Erreur d'affichage du <div> d'une page dans le <div> d'une autre page	Erreur PHP/FTP - Warning: ftp_fget()
Plus de sujets relatifs à : message d'erreur avec outlook

Page générée en 0.087 secondes