A voir également:
- Envoie de mail avec OE
- Yahoo mail - Accueil - Mail
- Publipostage mail - Accueil - Word
- Oe clavier ✓ - Forum Word
- Windows live mail - Télécharger - Mail
- Live.fr mail - Forum Mail
2 réponses
Bonjour stef, je suis dans le même cas que toi, as tu trouvé la solution à ton pb depuis?
Salutations!
Alex
Salutations!
Alex
salu les gars
Ben je vous dirai bien d aller voir ds le niveau de securité de outlook
si il est élévé , ben faut le baisser et trouver le juse milieu entre un OE sécurisé mais pas trop pour laisser passer ton script ....
vive microsoft...
bon courage, et bill sait qu il en faut lol
++
Ben je vous dirai bien d aller voir ds le niveau de securité de outlook
si il est élévé , ben faut le baisser et trouver le juse milieu entre un OE sécurisé mais pas trop pour laisser passer ton script ....
vive microsoft...
bon courage, et bill sait qu il en faut lol
++
meme en changeant les parametres de securite de Outlook, le probleme n'est pas resolu.
Ce message est sur les dernieres version de Outlook.
Il faut utiliser un objet CDO a la place de l'objet mail de outlook.
EXEMPLE DE SCRIPT en VB :
Sub MailEnvoi(Destinataire As String, Sujet As String, Optional Correspondant_CC As String, Optional Correspondant_BCC As String, Optional CorpsDuTexte As String, Optional Attach As Variant)
Set objEmail = CreateObject("CDO.Message")
'Set objEmail = CreateObject("cdonts.NewMail")
objEmail.From = "XXXX"
objEmail.To = Destinataire
objEmail.CC = Correspondant_CC
objEmail.BCC = Correspondant_BCC
objEmail.Subject = Sujet
objEmail.TextBody = CorpsDuTexte
If Attach <> "" Then objEmail.AddAttachment Attach
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.7.1"
'"smtp.radissonSAS.com" 192.168.X.X"
'Server port (typically 25)
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End Sub
Ce message est sur les dernieres version de Outlook.
Il faut utiliser un objet CDO a la place de l'objet mail de outlook.
EXEMPLE DE SCRIPT en VB :
Sub MailEnvoi(Destinataire As String, Sujet As String, Optional Correspondant_CC As String, Optional Correspondant_BCC As String, Optional CorpsDuTexte As String, Optional Attach As Variant)
Set objEmail = CreateObject("CDO.Message")
'Set objEmail = CreateObject("cdonts.NewMail")
objEmail.From = "XXXX"
objEmail.To = Destinataire
objEmail.CC = Correspondant_CC
objEmail.BCC = Correspondant_BCC
objEmail.Subject = Sujet
objEmail.TextBody = CorpsDuTexte
If Attach <> "" Then objEmail.AddAttachment Attach
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.7.1"
'"smtp.radissonSAS.com" 192.168.X.X"
'Server port (typically 25)
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End Sub