Lundi 01 Juin 2020  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 4
Membres en ligne : 0

 JièL 5 semaines
 manucau 7 semaines
 Manu-pb 8 semaines
 Oliv 13 semaines
 pirobert 54 semaines
 jcgdisle 79 semaines
 EMERGENCY 100 semaines
 beaulieu 112 semaines
 callaghi 115 semaines
 Charlie76 121 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:231
En ligne :4
Max. en ligne:312
Max. / jour:66 529
Total hier:0
Total ce mois:231
Total visites:23 646 095
Moyenne/jour:5 606

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q15000 Macros - VBA (41)  Catégorie »
[<<]  « Article  Article »  [>>]
R15380 [VBA] Envoi via VBA : suppression de la confirmation d'envoi

Je voudrais supprimer la demande de confirmation d'envoi de Outlook qui me dit : "Un programme tente d'envoyer ... en votre nom".


mon application VBA pour Excel envoie automatiquement des E-mails à des collègues.
Je voudrais supprimer la demande de confirmation d'envoi de Outlook qui me dit : "Un programme tente d'envoyer ... en votre nom".
Ceci afin de faire gagner du temps à l'utilisateur de mon programme. Est-ce possible et si oui, comment ?

sijmp


Bonjour,
Plusieurs méthodes sont possibles :
Une des solutions est de demander à Outlook d'envoyer le mail préparé par l'AUTRE PROGRAMME.
Dans EXCEL ou Access ou Word

Télécharger la source  GeSHi: Visual Basic
  1. Sub test_early_binding_SANS_secu()
  2. 'dans EXCEL ou Access ou Word
  3. Dim oApp As Outlook.Application
  4. Set oApp = Outlook.Application
  5. Dim monmail As MailItem
  6. Set monmail = oApp.CreateItem(olMailItem)
  7. monmail.Subject = "test ss message de secu"
  8. monmail.To = "toto"&Chr(64)&"montest.fr"
  9. monmail.Save
  10. Dim strID As String
  11. strID = monmail.EntryID
  12. Call oApp.send_Monmail(strID)
  13. Set monmail = Nothing
  14. Set oApp = Nothing
  15. End Sub
Analysé en 0.009 secondes, avec GeSHi 1.0.7.20



Dans OUTLOOK ThisOutlookSession

Télécharger la source  GeSHi: Visual Basic
  1. Sub send_Monmail(StrID As String)
  2. Dim monmail
  3. Set monmail = Application.GetNamespace("MAPI").GetItemFromID(StrID)
  4. monmail.Send
  5. End Sub
Analysé en 0.003 secondes, avec GeSHi 1.0.7.20



Sinon tu peux utiliser CDO pour créer et envoyer tes mails ( Microsoft CDO for Windows 2000 Library) car tu n'auras pas de message de sécurité.

Télécharger la source  GeSHi: Visual Basic
  1. Sub MailAvecCDO2000()
  2. '---------------------------------------------------------------------------------------
  3. ' Procedure : MailAvecCDO2000
  4. ' Author : Oliv'
  5. ' Date : 26/11/2008
  6. ' Purpose : envoi un mail sans message de sécurité en utilisant
  7. ' Déclaration tardive ("Late Binding")
  8. ' Microsoft CDO for Windows 2000 Library
  9. '---------------------------------------------------------------------------------------
  10. Dim Cdo_Message As Object
  11. Set Cdo_Message = CreateObject("CDO.Message")
  12. Const CdoTo = 1
  13. Const CdoCc = 2
  14. Const CdoBcc = 3
  15.  
  16. Set Cdo_Message.Configuration = GetSMTPServerConfig()
  17. With Cdo_Message
  18. .To = "toto"&Chr(64)&"toto.fr"
  19. .From = "moi"&Chr(64)&"chezmoi.fr"
  20. .subject = "Le Sujet"
  21. .TextBody = "Le Corps du message"
  22. '.AddAttachment ("c:cheminfichier.ext")
  23. .Cc = "John"&Chr(64)&"Doe.net;titi"&Chr(64)&"toto.fr"
  24. .Send
  25. End With
  26. Set Cdo_Message = Nothing
  27. End Sub
  28.  
  29. Function GetSMTPServerConfig() As Object
  30. ' Microsoft CDO for Windows 2000 Library
  31. Const cdoSendUsingPickup = 1
  32. Const cdoSendUsingPort = 2
  33. Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
  34. Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
  35. Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
  36.  
  37. Dim Cdo_Config As Object 'New CDO.Configuration
  38. Set Cdo_Config = CreateObject("CDO.Configuration")
  39. Dim Cdo_Fields As Object
  40. Set Cdo_Fields = Cdo_Config.Fields
  41.  
  42. With Cdo_Fields
  43. .Item(cdoSendUsingMethod) = cdoSendUsingPort
  44. .Item(cdoSMTPServer) = "smtp.orange.fr" 'ici le smtp fr votre FAI
  45. .Item(cdoSMTPServerPort) = 25
  46. .Update
  47. End With
  48.  
  49. Set GetSMTPServerConfig = Cdo_Config
  50. Set Cdo_Config = Nothing
  51. Set Cdo_Fields = Nothing
  52.  
  53. End Function
Analysé en 0.029 secondes, avec GeSHi 1.0.7.20




D'autres solutions existent
-utiliser MAPI (Microsoft CDO 1.21 Library) Pour Outlook 2007 il faut le télécharger là :http://www.microsoft.com/downloads/details.aspx?familyid=2714320d-c997-4de1-986f-24f081725d36&displaylang=en
-REDEMPTION http://www.dimastr.com/redemption/
-utiliser un programme comme clickyes (cela ouvre cependant une brèche dans ta sécurité)

tu peux aussi utiliser avec Excel SENDKEYS (merci à Babybell pour cette astuce)

Télécharger la source  GeSHi: Visual Basic
  1. MonMessage.Display
  2. SendKeys "^{ENTER}"
Analysé en 0.001 secondes, avec GeSHi 1.0.7.20




ps: Chr(64)=@


Publié par Oliv le mardi 17 mars 2009 17:27 0 Commentaires 34895 Lecture(s) Imprimer
Commentaires
les commentaires sont fermés.
Copyright et partage
Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

Creative Commons License
OUI au partage
NON au « copillage »

Ajouter aux favoris / partager : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Articles similaires
Articles Catégories
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception Q15000 Macros - VBA
R15930 [VBA] Création de menu dans outlook Q15000 Macros - VBA
R15280 [VBA] Exporter un mail et l'ouvrir dans IE avec ses images Q15000 Macros - VBA
R15930 [VBA] Eliminer les doublons Q15000 Macros - VBA
R15450 [VBA] Supprimer automatiquement les éléments de + de x jours dans un dossier. Q15000 Macros - VBA
Nuage de tags
R04010 Insérer une image dans un message, R00130 Fonctionnalités abandonnées et/ou modifiées dans Outlook 2007, R15050 [VBA] Modifier l'affichage sur tous les dossiers et sous-dossiers, R03010 Créer un nouveau message à partir d'un autre, R99080 En panne ?, R03050 Définir le papier à lettres par défaut, R12040 Créer un rendez-vous, R15240 [VBA] Viewer de pièces jointes., R17010 Impossible d'exporter les données de champs personnalisés, R08080 Message d'erreur lors de l'utilisation du carnet d'adresses, R01210 Répondeur automatique pendant votre absence, R06027 Alerter quand la taille du .PST est trop importante, R12050 Définir un rendez-vous répétitif, R15220 [VBA] Supprimer les Pièces jointes., R09010 Compléter la saisie d’un destinataire (saisie auto ou saisie semi auto)

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire
Publicité
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]