Jeudi 30 Mars 2017  
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 : 2
Membres en ligne : 0

 callaghi 1 jour
 Alphator 9 semaines
 ande 15 semaines
 Oliv 17 semaines
 cubitus 20 semaines
 JièL 25 semaines
 angel 31 semaines
 Quartzkyte 39 semaines
 grouilau 40 semaines
 miguy973 49 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:596
En ligne :2
Max. en ligne:312
Max. / jour:66 529
Total hier:5 065
Total ce mois:152 827
Total visites:17 273 914
Moyenne/jour:5 647

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 31178 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
R01060 Définir une adresse de retour différente, temporairement, R20010 Configurer un compte POP pour Outlook 2002/2003, R20020 Configurer un compte IMAP pour Outlook 2002/2003, R08140 Interface non enregistrée ou interface non prise en charge, R12060 Répondre à une invitation, R06035 L'archivage ne fonctionne pas, R13020 Créer une tâche rapidement, R20030 Configurer un compte Hotmail (Windows Live Hotmail) pour Outlook 2002/2003, R01090 Demander un accusé de réception / lecture, R12080 Publier son planning sur Internet / Intranet ou un réseau personnel, R15920 [VBA] Archivage , R14060 Gérer vos Notes, R99150 Solution pour madame, R99110 Ebook pas cher, R01030 Afficher des colonnes d'informations importantes sur les messages

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é
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]