CONTRÔLER OUTLOOK (1) - ENVOYER UN MAIL DEPUIS VB
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/320-controler-outlook-1-envoyer-un-mail-depuis-vb
https://codes-sources.commentcamarche.net/source/320-controler-outlook-1-envoyer-un-mail-depuis-vb
Pour éviter le message de sécurité Outlook, le seul moyen que j'ai trouvé est d'installer l'utilitaire suivant : ClickYes (http://www.contextmagic.com/downloads.htm) et le tour est joué.
Cordialement
- Messages postés
- 30
- Date d'inscription
- dimanche 7 novembre 2004
- Statut
- Membre
- Dernière intervention
- 19 novembre 2013
2http://www.vbfrance.com/code.aspx?ID=43130
Comme IDHAMMOU, j'ai le message de sécurité OUTLOOK lors de l'exe de mon programme d'envoie de mail en automatique.
Est-ce que quelqu'un aurait un maoyen de contrer ce message, SVP ?
Pour infos, les postes utilisateurs sont en OUTLOOK 2003 en lien avec un server avec EXCHANGE 2003.
Merci d'avance.
Cdlmt,
Bonjour;
Est ce qu'il y'a moyen pour éviter l'apparition du message de secutité OUTLOOK lors de l'execution du programme VBSCRIPT ?
MERCI.
J'ai utilisé ce code qui marche bien en revanche Microsoft Outlook me signale un message indiquant qu'une application tente d'envoyer un message automatiquement et la il faut répondre oui ou non car il précise que ca peut être un virus.
Comment faire pour ne plus avoir cette fenêtre ?
Si vous avez office 2000 c MSOUTL9.OLB
Si vous avez office XP c MSOUTL10.OLB je pense
En tout cas si vous utilisez la liste de menu projet/reference il va vous proposer ceux qui sont dispo.
L'exemple que j'ai mis devrait etre compatible à tous je pense.
Remarque:
Une seule exception sur 2000 et superieur:
Le fait d'utiliser cette fonction mail génére un message de securité comme qoui un programme essaye d'envoyer un mail a votre place - c qui est génant car il ouvre une petite boite de dialogue tres discrete qu'on voit des fois pas et ca bloque l'application.
Le Outlook dont vous parlez, c'est express ou celui fourni avec office ???
pour ce qui est des pièces attachées voici la ligne de code simple :
olMail.attachements.add "c: estfichier.txt", olByValue, 1, ""
ligne a améliorer avec des variables et pour ajouter plusieurs attachements
@+
' Pour faire Pour activer le modèle outlook de windows:
' 1. appuyer sur F2
' 2. faites un clique droit avec votre souris pour ouvrir un menu contextuel
' 3. cliquez sur références...
' 4. recherchez Microsoft outlook 8.0 object library et validez en cliquant sur OK
' 5. vous pouvez maiintenant utilisez l'objet outlook pour envoyer et gerer les mails
'Si vous n'arrivez pas le faire comme ce ci alors editez votre projet.vbp avec un bloc notes et ajoutez la ligne suivante en deuxieme ligne (si vous avez outlook 97):
'Reference=*G{00062FFF-0000-0000-C000-000000000046}#8.0#0#C:PROGRAM FILESMICROSOFT OFFICE97OFFICEmsoutl8.olb#Microsoft Outlook 8.0 Object Library
'Voici le code à partir d'un bouton:
Private Sub Command1_Click()
'Declaration des objets
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
'Création des instances des objets
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(olMailIItem)
'Utilisation
olMail.To = "devsurf@hotmail.com"
olMail.Subject = "Test de mail"
olMail.Body = "qui devrait marcher"
olMail.Send
End Sub
' devsurf@hotmail.com
n'oubliez pas d'ajouter une référence à outlook dans votre appli.
Mais si tu donnait le nom du fichier auquel tu fait référence ce sera l'occasion
pour moi de tester une source bien prometeuse.
MERCI de repondre
@+
strSubject As String, _
strMessage As String, _
Optional astrAttachments As Variant) As Boolean
Dim olApp As Outlook.Application
Dim objNewMail As Outlook.MailItem
Dim varRecip As Variant
Dim varAttach As Variant
Dim blnResolveSuccess As Boolean
On Error GoTo CreateMail_Err
Set olApp = New Outlook.Application
Set objNewMail = olApp.CreateItem(olMailItem)
With objNewMail
' Add each item in the varRecip array to the Recipients collection.
For Each varRecip In astrRecip
.Recipients.Add varRecip
Next varRecip
' Determine if all recipients have corresponding entries in the
' Outlook address book.
blnResolveSuccess = .Recipients.ResolveAll
' Add each item in the varAttach array to the Attachments collection
' and specify the subject and text of the mail message.
For Each varAttach In astrAttachments
.Attachments.Add varAttach
Next varAttach
.Subject = strSubject
.Body = strMessage
' If all recipients are valid then send the message now, otherwise
' display the message so the user can fix invalid e-mail addresses.
If blnResolveSuccess Then
.Send
Else
MsgBox "Unable to resolve all recipients. Please check " _
& "the names."
.Display
End If
End With
CreateMail = True
CreateMail_End:
Exit Function
CreateMail_Err:
CreateMail = False
Resume CreateMail_End
End Function) parceque ca, jlai dja fait et ca marche pas,
car ce que jaimerais faire, moi, c'est au clik dun boutton, le contenu du text1 et du text2 me soient envoyé par mail, si tu peux maider...
Function CreateMail(astrRecip As Variant, _
strSubject As String, _
strMessage As String, _
Optional astrAttachments As Variant) As Boolean
Dim olApp As Outlook.Application
Il me dit : Type définit par l'utilisateur non definit !
oui il peut envoyer des fichiers attachés....
avec Attachments.Add
Set objNewMail = olApp.CreateItem(olMailItem)
With objNewMail
ici il passe en erreur
Avez vous une astuce ?
Peut-il envoyer un fichier attaché ?