Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Email automatiques dans Outlook ???

Email automatiques dans Outlook ???

5 réponses
Avatar
le_troll
Bonjour,

Je suis toujours avec mon email automatique via Outlook et son double
blocage nécessitant une intervention manuelle... (J'ai abandonné avec
Winsock, car il faudrait désinstaller les anti-virus et feu)...
J'ai lu un peu partout, sans trouver de solution, seulement une piste, il y
aurait une possibilité de désactiver certaines sécurités d'Outlook par la
base de registres, mais là je n'ai pas de doc, avez-vous quelque chose dans
ce sens ?
--
Merci, @+, bye, Joe
ng75 arobase noos point fr
------------------------------------------
Avec une hache, celui qui tient le manche a toujours raison !
----------------------------------------------------------
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
François Picalausa
Hello,

(J'ai
abandonné avec Winsock, car il faudrait désinstaller les anti-virus



Depuis quand?

et feu)...



Pour les pare-feu, il ne faut pas les désactiver, juste autoriser
l'application à se connecter! (comme pour outlook, ou outlook express ou...)
C'est normal, le pare feu sert justement à ne pas accepter toutes les
connections!
De même, il est normal qu'outlook demande confirmation de l'envoi des
messages pour éviter que n'importe quel virus utilise outlook pour
s'autopropager.

Maintenant, pour les messages de confirmation, comme te l'as dit Clive Lumb,
tu peux utiliser Outlook Redemption.

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"le_troll" a écrit dans le message de
news:
Bonjour,

Je suis toujours avec mon email automatique via Outlook et son
double blocage nécessitant une intervention manuelle...> J'ai lu un peu


partout, sans trouver de solution, seulement une
piste, il y aurait une possibilité de désactiver certaines sécurités
d'Outlook par la base de registres, mais là je n'ai pas de doc,
avez-vous quelque chose dans ce sens ?


Avatar
le_troll
Salut François, connais-tu Outlook rédemption, il va me l'envoyer mardi,
est-ce sérieux cette dll ?
--
Merci, @+, bye, Joe
ng75 arobase noos point fr
------------------------------------------
Avec une hache, celui qui tient le manche a toujours raison !
----------------------------------------------------------


"François Picalausa" a écrit dans le message de news:

Hello,

> (J'ai
> abandonné avec Winsock, car il faudrait désinstaller les anti-virus

Depuis quand?

> et feu)...

Pour les pare-feu, il ne faut pas les désactiver, juste autoriser
l'application à se connecter! (comme pour outlook, ou outlook express


ou...)
C'est normal, le pare feu sert justement à ne pas accepter toutes les
connections!
De même, il est normal qu'outlook demande confirmation de l'envoi des
messages pour éviter que n'importe quel virus utilise outlook pour
s'autopropager.

Maintenant, pour les messages de confirmation, comme te l'as dit Clive


Lumb,
tu peux utiliser Outlook Redemption.

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"le_troll" a écrit dans le message de
news:
> Bonjour,
>
> Je suis toujours avec mon email automatique via Outlook et son
> double blocage nécessitant une intervention manuelle...> J'ai lu un peu
partout, sans trouver de solution, seulement une
> piste, il y aurait une possibilité de désactiver certaines sécurités
> d'Outlook par la base de registres, mais là je n'ai pas de doc,
> avez-vous quelque chose dans ce sens ?




Avatar
François Picalausa
Hello,

Je n'ai jamais testé redemption mais je l'ai vue cnseillée à plusieurs
reprises par diverses personnes sur divers groupes.
Je pense donc qu'effectivement, c'est du sérieux!

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"le_troll" a écrit dans le message de
news:
Salut François, connais-tu Outlook rédemption, il va me l'envoyer
mardi, est-ce sérieux cette dll ?


Avatar
Clive Lumb
Tu peux le télécharger déjà.
Mardi j'allais t'envoyer un exemple de programmation ...

Download ici: http://www.dimastr.com/redemption/Redemption.zip
Le doc avec des exemples:
http://www.dimastr.com/redemption/objects.htm



"le_troll" a écrit dans le message de
news:
Salut François, connais-tu Outlook rédemption, il va me l'envoyer mardi,
est-ce sérieux cette dll ?
--
Merci, @+, bye, Joe
ng75 arobase noos point fr
------------------------------------------
Avec une hache, celui qui tient le manche a toujours raison !
----------------------------------------------------------


"François Picalausa" a écrit dans le message de


news:

> Hello,
>
> > (J'ai
> > abandonné avec Winsock, car il faudrait désinstaller les anti-virus
>
> Depuis quand?
>
> > et feu)...
>
> Pour les pare-feu, il ne faut pas les désactiver, juste autoriser
> l'application à se connecter! (comme pour outlook, ou outlook express
ou...)
> C'est normal, le pare feu sert justement à ne pas accepter toutes les
> connections!
> De même, il est normal qu'outlook demande confirmation de l'envoi des
> messages pour éviter que n'importe quel virus utilise outlook pour
> s'autopropager.
>
> Maintenant, pour les messages de confirmation, comme te l'as dit Clive
Lumb,
> tu peux utiliser Outlook Redemption.
>
> --
> François Picalausa (MVP VB)
> http://faq.vb.free.fr --- http://msdn.microsoft.com
> http://apisvb.europe.webmatrixhosting.net
>
> "le_troll" a écrit dans le message de
> news:
> > Bonjour,
> >
> > Je suis toujours avec mon email automatique via Outlook et son
> > double blocage nécessitant une intervention manuelle...> J'ai lu un


peu
> partout, sans trouver de solution, seulement une
> > piste, il y aurait une possibilité de désactiver certaines sécurités
> > d'Outlook par la base de registres, mais là je n'ai pas de doc,
> > avez-vous quelque chose dans ce sens ?
>
>




Avatar
Clive Lumb
Hello Joe,

Voici une procédure que j'utilise pour
- Trouver un mail ouvert à l'écran
- Récuperer les détails du mail (expéditeur, destinataires, objet etc.)
- Stocker les détails dans une BdD (code pas montré)
- Ajouter un numéro de chrono dans l'objet et en première ligne du message
- und so weiter

Private Sub GetSelectedItem_Click()
' This uses an existing instance if available (default Outlook
behavior).
Dim MailDetails As DBRecord
Dim I As Integer
Dim Msg As String
Dim Num_Chrono As String
Dim rItem As Object
Dim rApp As Object
Dim rUser As Object
Dim oAppNs As Outlook.NameSpace
Dim oUser As Outlook.UserProperty
Dim MyName As String
Dim oApp As New Outlook.Application
Dim oExp As Outlook.Explorer
Dim oSel As Outlook.Selection ' You need a selection object for
getting the selection.
Dim oItem As Object ' You don't know the type yet.
Dim oMessage As Outlook.MailItem
Dim oInspector As Outlook.Inspector
Dim MyDialog As New Dialog


Me.GetSelectedItem.Enabled = False
Me.Command1.Enabled = False
Me.cmdSaisieManuelle.Enabled = False
Call Status("Recherche de messages", minfo)
Set oAppNs = oApp.GetNamespace("MAPI")
Set rApp = New Redemption.SafeCurrentUser
' Utiliser Redemption pout le nom d'utilisateur car Outlook l'interdit
MyName = rApp.Name
If Len(MyName) = 0 Then ' Pas trouvé, utliser la valuer dans la base de
registres
MyName = GetSetting("CTSChrono", "Settings", "LastUser", "Inconnu")
Else ' Sauver dans la BdR
SaveSetting "CTSChrono", "Settings", "LastUser", MyName
End If
Set oExp = oApp.ActiveExplorer ' Get the ActiveExplorer.
'Set oSel = oExp.Selection ' Get the selection.
If oApp.Inspectors.Count > 0 Then
Set oInspector = oApp.ActiveInspector
Set oItem = oInspector.CurrentItem
If oItem.Class = olMail Then 'C'est un e-mail
' On crée la version Redemption
Set rItem = New Redemption.SafeMailItem
rItem.Item = oItem
Call Status("Trouvé mail à " & rItem.To, mOK)

With rItem 'Utiliser le SafeMailItem de Redemption
If Len(.To) = 0 Then 'La résolution d'adresses d'Outlook
n'est pas terminé
Msg = "Outlook ne veut pas me donner le nom du
destinataire !!" & vbCrLf & "Je sauve le brouillon pour l'activer"
MsgBox Msg, , "CTS Chrono"
rItem.Save
End If
Msg = "Merci d'indiquer le pays/classment et confirmer
l'ajout au Chrono du message à " & vbCrLf & .To & "." & vbCr & "Sujet: " &
.Subject
Call Status("Confirmation", mQuestion)
' Demander la catégorie pour le classement
MyDialog.lblMsg = Msg
MyDialog.Show vbModal
If ConfirmFlag Then 'On n'a pas annulé
Call Status("Recherche détails", minfo)
DoEvents
'Recuperer les infos
MailDetails.Expediteur = MyName
MailDetails.DateEnvoi = Now()
MailDetails.Sujet = .Subject
If .Subject = "" Then 'Rappel que l'on devrait avoir un
sujet, mais non bloquant
MsgBox "l'Objet est vide !!!", , "CTS Chrono"
End If
MailDetails.Destinateur = .To 'retourne une chaine
plutôt qu'un array
If .Recipients(1).AddressEntry.Type = "SMTP" Then
'Mettre l'adresse réelle du 1er destinataire
MailDetails.Destinateur = MailDetails.Destinateur &
" <" & .Recipients(1).Address & ">"
End If
MailDetails.CC = .CC
MailDetails.CCI = .BCC
.BCC = "; " & .BCC 'une copie cachée
pour la sécretaire
For I = 1 To oItem.Attachments.Count 'Recuperer les noms
des pièces jointes
MailDetails.PiecesJointes MailDetails.PiecesJointes & oItem.Attachments.Item(I).DisplayName & ", "
Next I
'Détails internes, equipe, année, numéro d'ordre,
classement
MailDetails.Equipe = Me.Combo1.ListIndex + 1
MailDetails.Annee = Year(Now())
MailDetails.Numero = GetNextChrono(MailDetails.Annee,
MailDetails.Equipe)
MailDetails.Pays = Pays
Num_Chrono = "E" & Trim$(Str$(MailDetails.Equipe)) & "."
& Format(MailDetails.Numero, "0000") & "CTS" &
Right$(Trim$(Str$(MailDetails.Annee)), 2)
Call Status(Num_Chrono, minfo)
MailDetails.RefChrono = Num_Chrono
'Recuperer les 200 1er caractère du message avec
suppresion des saut de ligne en surnombre
MailDetails.Extrait = Left$(Replace(oItem.Body, vbCrLf &
vbCrLf, vbCrLf), 200)
'Ajouter la référence dans le texte
Select Case oInspector.EditorType
Case Is = olEditorText
oItem.Body = AddRefInText(oItem.Body, "Notre/Our Ref
: " & Num_Chrono)
Case Is = olEditorRTF
oItem.Body = AddRefInText(oItem.Body, "Notre/Our Ref
: " & Num_Chrono)
Case Is = olEditorHTML
oItem.HTMLBody = AddRefInHTML(oItem.HTMLBody,
"Notre/Our Ref : " & Num_Chrono)
End Select
'Ajouter Réf en objet
.Subject = "[" & Num_Chrono & "]: " & .Subject
MailDetails.Sujet = Left$(.Subject, 100)
Call Status("Ajout dans BD", minfo)
Call AddToChrono(MailDetails)
Clipboard.Clear
Clipboard.SetText Num_Chrono, vbCFText
Call Status(Num_Chrono & " terminé", mOK)
Else
Call Status("Annulé", mOK)
End If
End With
Set rItem = Nothing
Set oItem = Nothing
Set oInspector = Nothing
Else
Call Status("Pas de fenêtre mail ouverte !", mAlert)
End If
Else
Call Status("Pas de fenêtre mail ouverte !", mAlert)
End If
Set rApp = Nothing
Set rItem = Nothing
Set rApp = Nothing
Set rUser = Nothing
Set oAppNs = Nothing
Set oUser = Nothing
Set oApp = Nothing
Set oExp = Nothing
Set oSel = Nothing
Set oItem = Nothing
Set oMessage = Nothing
Set oInspector = Nothing
Set MyDialog = Nothing
Me.GetSelectedItem.Enabled = True
Me.Command1.Enabled = True
Me.cmdSaisieManuelle.Enabled = False

End Sub

Public Function AddRefInHTML(ByVal HTML As String, Addition As String) As
String
Dim Temp As String
Dim Pointer As Long
Temp = HTML
Pointer = InStr(Temp, "<BODY>")
If Pointer > 0 Then
Temp = Left$(Temp, Pointer + 5) & "<DIV><FONT face=Arial size=2><B>" &
Addition & "</B><BR></FONT></DIV>" & Right$(Temp, Len(Temp) - (Pointer + 5))
AddRefInHTML = Temp
Else
AddRefInHTML = Temp
End If
End Function
Public Function AddRefInText(ByVal Textin As String, Addition As String) As
String
Dim Temp As String
Temp = Textin
Temp = Addition & vbCrLf & vbCrLf & Temp
AddRefInText = Temp
End Function

"le_troll" a écrit dans le message de
news:
Bonjour,

Je suis toujours avec mon email automatique via Outlook et son double
blocage nécessitant une intervention manuelle... (J'ai abandonné avec
Winsock, car il faudrait désinstaller les anti-virus et feu)...
J'ai lu un peu partout, sans trouver de solution, seulement une piste, il


y
aurait une possibilité de désactiver certaines sécurités d'Outlook par la
base de registres, mais là je n'ai pas de doc, avez-vous quelque chose


dans
ce sens ?
--
Merci, @+, bye, Joe
ng75 arobase noos point fr
------------------------------------------
Avec une hache, celui qui tient le manche a toujours raison !
----------------------------------------------------------