Envoie Mail outlook XP

Michel Pierron

29/01/2004 à 14:01

Bonjour Emcy;
Chez moi, ceci fonctionne sans problème et ne nécessite pas de référence à Outlook
Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail = .CreateItem(0)
With Mail
.Subject = "Aperçu " & Date
.Body = "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attachés." & Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To = ""
.CC = ""
.Send
End With
Set Mail = Nothing
End With
End Sub

MP

"Emcy" a écrit dans le message de
news:%

Je repose ma question vu que je n'ai pas encore eu de réponse satisfaisante

Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub

Emcy

29/01/2004 à 14:26

J'ai déja essayé avec une macro similaire : j'ai une erreur à la ligne:
Set Mail = .CreateItem(0)

Est-ce que tu utilises bien la version XP(2002) d'outlook ?
Remarque : mon système d'exploitation est Windows XP

"Michel Pierron" a écrit dans le message de
news:

Bonjour Emcy;
Chez moi, ceci fonctionne sans problème et ne nécessite pas de référence à
Outlook

Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail = .CreateItem(0)
With Mail
.Subject = "Aperçu " & Date
.Body = "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attachés." & Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To = ""
.CC = ""
.Send
End With
Set Mail = Nothing
End With
End Sub

MP

"Emcy" a écrit dans le message de
news:%
Je repose ma question vu que je n'ai pas encore eu de réponse
satisfaisante

Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub

J'ai déja essayé avec une macro similaire : j'ai une erreur à la ligne:
Set Mail = .CreateItem(0)

Est-ce que tu utilises bien la version XP(2002) d'outlook ?
Remarque : mon système d'exploitation est Windows XP

"Michel Pierron" <mpierron@europtest.com> a écrit dans le message de
news:eEyyQem5DHA.1368@TK2MSFTNGP10.phx.gbl...

Bonjour Emcy;
Chez moi, ceci fonctionne sans problème et ne nécessite pas de référence à
Outlook

Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail = .CreateItem(0)
With Mail
.Subject = "Aperçu " & Date
.Body = "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attachés." & Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To = "mpierron@europtest.com"
.CC = ""
.Send
End With
Set Mail = Nothing
End With
End Sub

MP

"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:%23oVbvsk5DHA.2412@TK2MSFTNGP11.phx.gbl...

Je repose ma question vu que je n'ai pas encore eu de réponse
satisfaisante

Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("monadresse@blabla.com")
.Body = "ton message"
.Attachments.Add "c:readme.txt"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub

Leonard

29/01/2004 à 17:15

Bonjour,
J'apporte ma petite contribution ayant été confronté au problème...

Il faut aller dans le menu option d'Outlook ( moi c'est express par défaut )
et dans l'onglet Envoi vérifier que la case à cocher envoyer immédiatement
et bien cocher. Ensuite dans l'onglet sécurité il faut décocher la case "
M'avertir si une application essai d'envoyer un mail" Après ça devrait
fonctionner sans problème.

Maintenant avec outlook XP je sais pas si c'est la même chose.
"Emcy" a écrit dans le message de
news:uzC0%

J'ai déja essayé avec une macro similaire : j'ai une erreur à la ligne:
Set Mail = .CreateItem(0)

Est-ce que tu utilises bien la version XP(2002) d'outlook ?
Remarque : mon système d'exploitation est Windows XP

"Michel Pierron" a écrit dans le message de
news:
Bonjour Emcy;
Chez moi, ceci fonctionne sans problème et ne nécessite pas de référence
à

Outlook
Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail = .CreateItem(0)
With Mail
.Subject = "Aperçu " & Date
.Body = "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attachés." & Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To = ""
.CC = ""
.Send
End With
Set Mail = Nothing
End With
End Sub

MP

"Emcy" a écrit dans le message de
news:%
Je repose ma question vu que je n'ai pas encore eu de réponse
satisfaisante

Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub

Bonjour,
J'apporte ma petite contribution ayant été confronté au problème...

Il faut aller dans le menu option d'Outlook ( moi c'est express par défaut )
et dans l'onglet Envoi vérifier que la case à cocher envoyer immédiatement
et bien cocher. Ensuite dans l'onglet sécurité il faut décocher la case "
M'avertir si une application essai d'envoyer un mail" Après ça devrait
fonctionner sans problème.

Maintenant avec outlook XP je sais pas si c'est la même chose.
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:uzC0%23tm5DHA.2656@TK2MSFTNGP11.phx.gbl...

J'ai déja essayé avec une macro similaire : j'ai une erreur à la ligne:
Set Mail = .CreateItem(0)

Est-ce que tu utilises bien la version XP(2002) d'outlook ?
Remarque : mon système d'exploitation est Windows XP

"Michel Pierron" <mpierron@europtest.com> a écrit dans le message de
news:eEyyQem5DHA.1368@TK2MSFTNGP10.phx.gbl...

Bonjour Emcy;
Chez moi, ceci fonctionne sans problème et ne nécessite pas de référence
à

Outlook

Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail = .CreateItem(0)
With Mail
.Subject = "Aperçu " & Date
.Body = "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attachés." & Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To = "mpierron@europtest.com"
.CC = ""
.Send
End With
Set Mail = Nothing
End With
End Sub

MP

"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:%23oVbvsk5DHA.2412@TK2MSFTNGP11.phx.gbl...

Je repose ma question vu que je n'ai pas encore eu de réponse
satisfaisante

Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("monadresse@blabla.com")
.Body = "ton message"
.Attachments.Add "c:readme.txt"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,
J'apporte ma petite contribution ayant été confronté au problème...

Il faut aller dans le menu option d'Outlook ( moi c'est express par défaut )
et dans l'onglet Envoi vérifier que la case à cocher envoyer immédiatement
et bien cocher. Ensuite dans l'onglet sécurité il faut décocher la case "
M'avertir si une application essai d'envoyer un mail" Après ça devrait
fonctionner sans problème.

Maintenant avec outlook XP je sais pas si c'est la même chose.
"Emcy" a écrit dans le message de
news:uzC0%

J'ai déja essayé avec une macro similaire : j'ai une erreur à la ligne:
Set Mail = .CreateItem(0)

Est-ce que tu utilises bien la version XP(2002) d'outlook ?
Remarque : mon système d'exploitation est Windows XP

"Michel Pierron" a écrit dans le message de
news:
Bonjour Emcy;
Chez moi, ceci fonctionne sans problème et ne nécessite pas de référence
à

Outlook
Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail = .CreateItem(0)
With Mail
.Subject = "Aperçu " & Date
.Body = "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attachés." & Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To = ""
.CC = ""
.Send
End With
Set Mail = Nothing
End With
End Sub

MP

"Emcy" a écrit dans le message de
news:%
Je repose ma question vu que je n'ai pas encore eu de réponse
satisfaisante

Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub

Emcy

30/01/2004 à 11:07

la case envoyer immédiatement est bien cocher
mais je ne trouve pas " M'avertir si une application essai d'envoyer un
mail"

"Leonard" a écrit dans le message de
news:bvbbnn$2ec$

Bonjour,
J'apporte ma petite contribution ayant été confronté au problème...

Il faut aller dans le menu option d'Outlook ( moi c'est express par
défaut )

et dans l'onglet Envoi vérifier que la case à cocher envoyer immédiatement
et bien cocher. Ensuite dans l'onglet sécurité il faut décocher la case "
M'avertir si une application essai d'envoyer un mail" Après ça devrait
fonctionner sans problème.

Maintenant avec outlook XP je sais pas si c'est la même chose.
"Emcy" a écrit dans le message de
news:uzC0%
J'ai déja essayé avec une macro similaire : j'ai une erreur à la ligne:
Set Mail = .CreateItem(0)

Est-ce que tu utilises bien la version XP(2002) d'outlook ?
Remarque : mon système d'exploitation est Windows XP

"Michel Pierron" a écrit dans le message de
news:
Bonjour Emcy;
Chez moi, ceci fonctionne sans problème et ne nécessite pas de
référence

à
Outlook
Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail = .CreateItem(0)
With Mail
.Subject = "Aperçu " & Date
.Body = "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attachés." & Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To = ""
.CC = ""
.Send
End With
Set Mail = Nothing
End With
End Sub

MP

"Emcy" a écrit dans le message de
news:%
Je repose ma question vu que je n'ai pas encore eu de réponse
satisfaisante

Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub

la case envoyer immédiatement est bien cocher
mais je ne trouve pas " M'avertir si une application essai d'envoyer un
mail"

"Leonard" <anonymous@elvis.fr> a écrit dans le message de
news:bvbbnn$2ec$1@news.tiscali.fr...

Bonjour,
J'apporte ma petite contribution ayant été confronté au problème...

Il faut aller dans le menu option d'Outlook ( moi c'est express par
défaut )

et dans l'onglet Envoi vérifier que la case à cocher envoyer immédiatement
et bien cocher. Ensuite dans l'onglet sécurité il faut décocher la case "
M'avertir si une application essai d'envoyer un mail" Après ça devrait
fonctionner sans problème.

Maintenant avec outlook XP je sais pas si c'est la même chose.
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:uzC0%23tm5DHA.2656@TK2MSFTNGP11.phx.gbl...

J'ai déja essayé avec une macro similaire : j'ai une erreur à la ligne:
Set Mail = .CreateItem(0)

Est-ce que tu utilises bien la version XP(2002) d'outlook ?
Remarque : mon système d'exploitation est Windows XP

"Michel Pierron" <mpierron@europtest.com> a écrit dans le message de
news:eEyyQem5DHA.1368@TK2MSFTNGP10.phx.gbl...

Bonjour Emcy;
Chez moi, ceci fonctionne sans problème et ne nécessite pas de
référence

à

Outlook

Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail = .CreateItem(0)
With Mail
.Subject = "Aperçu " & Date
.Body = "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attachés." & Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To = "mpierron@europtest.com"
.CC = ""
.Send
End With
Set Mail = Nothing
End With
End Sub

MP

"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:%23oVbvsk5DHA.2412@TK2MSFTNGP11.phx.gbl...

Je repose ma question vu que je n'ai pas encore eu de réponse
satisfaisante

Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("monadresse@blabla.com")
.Body = "ton message"
.Attachments.Add "c:readme.txt"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub

Vous avez filtré cet utilisateur ! Consultez son message

la case envoyer immédiatement est bien cocher
mais je ne trouve pas " M'avertir si une application essai d'envoyer un
mail"

"Leonard" a écrit dans le message de
news:bvbbnn$2ec$

Bonjour,
J'apporte ma petite contribution ayant été confronté au problème...

Il faut aller dans le menu option d'Outlook ( moi c'est express par
défaut )

et dans l'onglet Envoi vérifier que la case à cocher envoyer immédiatement
et bien cocher. Ensuite dans l'onglet sécurité il faut décocher la case "
M'avertir si une application essai d'envoyer un mail" Après ça devrait
fonctionner sans problème.

Maintenant avec outlook XP je sais pas si c'est la même chose.
"Emcy" a écrit dans le message de
news:uzC0%
J'ai déja essayé avec une macro similaire : j'ai une erreur à la ligne:
Set Mail = .CreateItem(0)

Est-ce que tu utilises bien la version XP(2002) d'outlook ?
Remarque : mon système d'exploitation est Windows XP

"Michel Pierron" a écrit dans le message de
news:
Bonjour Emcy;
Chez moi, ceci fonctionne sans problème et ne nécessite pas de
référence

à
Outlook
Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail = .CreateItem(0)
With Mail
.Subject = "Aperçu " & Date
.Body = "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attachés." & Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To = ""
.CC = ""
.Send
End With
Set Mail = Nothing
End With
End Sub

MP

"Emcy" a écrit dans le message de
news:%
Je repose ma question vu que je n'ai pas encore eu de réponse
satisfaisante

Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub

Envoie Mail outlook XP

4 réponses

Veuillez sélectionner un problème