Bonjour à vous,
J'utilises déjà sendmail avec VBA, mais comment ne pas envoyer le courriel
et seulement obtenir la fenêtre d'un nouveau courriel Outlook avec le
classeur joint pour qu'une personne puisse elle-même tapper les adresses de
courriel désirées?
Par la suite, elle pourra appuyer sur le bouton Envoyer.
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
Oliv'
gmore que je salut a écrit dans
Bonjour à vous, J'utilises déjà sendmail avec VBA, mais comment ne pas envoyer le courriel et seulement obtenir la fenêtre d'un nouveau courriel Outlook avec le classeur joint pour qu'une personne puisse elle-même tapper les adresses de courriel désirées?
Par la suite, elle pourra appuyer sur le bouton Envoyer.
Merci à l'avance de vos suggestions. Guy
Utilises un objet OUTOOK.application.MailItem regarde dans l'aide et dans l'instruction "with " ne met pas le ".send" par contre faut mettre un ".display"
ex : Dim oItem As Outlook.MailItem With oItem .To = FormChoix.TextBoxEmail .Body = Corps .Subject = "toto " 'Add the document as an attachment, you can use the .displayname property 'to set the description that's used in the message .Attachments.Add Source:=source_name, Type:=olByValue ' demande ar reception et lecture .OriginatorDeliveryReportRequested = true .ReadReceiptRequested = true .DeleteAfterSubmit = False '.SaveSentMessageFolder = monMAPIFolder .Display End With
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
gmore <gmore@discussions.microsoft.com> que je salut a écrit dans
5594D13B-3EE8-45DB-B029-41E0B145C759@microsoft.com
Bonjour à vous,
J'utilises déjà sendmail avec VBA, mais comment ne pas envoyer le
courriel et seulement obtenir la fenêtre d'un nouveau courriel
Outlook avec le classeur joint pour qu'une personne puisse elle-même
tapper les adresses de courriel désirées?
Par la suite, elle pourra appuyer sur le bouton Envoyer.
Merci à l'avance de vos suggestions.
Guy
Utilises un objet OUTOOK.application.MailItem
regarde dans l'aide
et dans l'instruction "with " ne met pas le ".send" par contre faut mettre
un ".display"
ex :
Dim oItem As Outlook.MailItem
With oItem
.To = FormChoix.TextBoxEmail
.Body = Corps
.Subject = "toto "
'Add the document as an attachment, you can use the .displayname
property
'to set the description that's used in the message
.Attachments.Add Source:=source_name, Type:=olByValue
' demande ar reception et lecture
.OriginatorDeliveryReportRequested = true
.ReadReceiptRequested = true
.DeleteAfterSubmit = False
'.SaveSentMessageFolder = monMAPIFolder
.Display
End With
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour à vous, J'utilises déjà sendmail avec VBA, mais comment ne pas envoyer le courriel et seulement obtenir la fenêtre d'un nouveau courriel Outlook avec le classeur joint pour qu'une personne puisse elle-même tapper les adresses de courriel désirées?
Par la suite, elle pourra appuyer sur le bouton Envoyer.
Merci à l'avance de vos suggestions. Guy
Utilises un objet OUTOOK.application.MailItem regarde dans l'aide et dans l'instruction "with " ne met pas le ".send" par contre faut mettre un ".display"
ex : Dim oItem As Outlook.MailItem With oItem .To = FormChoix.TextBoxEmail .Body = Corps .Subject = "toto " 'Add the document as an attachment, you can use the .displayname property 'to set the description that's used in the message .Attachments.Add Source:=source_name, Type:=olByValue ' demande ar reception et lecture .OriginatorDeliveryReportRequested = true .ReadReceiptRequested = true .DeleteAfterSubmit = False '.SaveSentMessageFolder = monMAPIFolder .Display End With
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
jps
bonjour guy essaie cela qui n'est pas de moi, bien sûr mais de frédéric sigonneau HTH jps
Sub EnvoiFichierAvecOE() 'cette proc de FS permet d'envoyer un fichier à une liste ou à _ 'une personne à partir d'excel et via OE Dim dest$, sujet$, texte$ Dim Rep 'Application.ScreenUpdating = False 'Rep est le nom du fichier à joindre. Rep = Application.GetOpenFilename("Tous les fichiers (*.*), *.*") Destinataire: dest = InputBox("Addresse destinataire:") If dest = "" Then Exit Sub If InStr(1, dest, " ") Then MsgBox "Adresse invalide !", 64: GoTo Destinataire If InStr(1, dest, "@") = 0 Then MsgBox "Adresse invalide !", 64: GoTo Destinataire sujet = InputBox("taper l'objet du message") texte = InputBox("taper le corps du message") Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & dest & _ "?subject=" & sujet & _ "&Body=" & texte, 3 'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion 'pièce jointe, joindre le fichier contenu dans la variable Rep, valider puis 'envoyer. SendKeys "%I" & "p" & Rep & "~" '& "%s" mise en commentaire pour ne pas envoyer End Sub
"Oliv'" <(supprimerceci) a écrit dans le message de news:
gmore que je salut a écrit dans
Bonjour à vous, J'utilises déjà sendmail avec VBA, mais comment ne pas envoyer le courriel et seulement obtenir la fenêtre d'un nouveau courriel Outlook avec le classeur joint pour qu'une personne puisse elle-même tapper les adresses de courriel désirées?
Par la suite, elle pourra appuyer sur le bouton Envoyer.
Merci à l'avance de vos suggestions. Guy
Utilises un objet OUTOOK.application.MailItem regarde dans l'aide et dans l'instruction "with " ne met pas le ".send" par contre faut mettre un ".display"
ex : Dim oItem As Outlook.MailItem With oItem .To = FormChoix.TextBoxEmail .Body = Corps .Subject = "toto " 'Add the document as an attachment, you can use the .displayname property 'to set the description that's used in the message .Attachments.Add Source:=source_name, Type:=olByValue ' demande ar reception et lecture .OriginatorDeliveryReportRequested = true .ReadReceiptRequested = true .DeleteAfterSubmit = False '.SaveSentMessageFolder = monMAPIFolder .Display End With
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
bonjour guy
essaie cela qui n'est pas de moi, bien sûr mais de frédéric sigonneau
HTH
jps
Sub EnvoiFichierAvecOE()
'cette proc de FS permet d'envoyer un fichier à une liste ou à _
'une personne à partir d'excel et via OE
Dim dest$, sujet$, texte$
Dim Rep
'Application.ScreenUpdating = False
'Rep est le nom du fichier à joindre.
Rep = Application.GetOpenFilename("Tous les fichiers (*.*), *.*")
Destinataire:
dest = InputBox("Addresse destinataire:")
If dest = "" Then Exit Sub
If InStr(1, dest, " ") Then MsgBox "Adresse invalide !", 64: GoTo
Destinataire
If InStr(1, dest, "@") = 0 Then MsgBox "Adresse invalide !", 64: GoTo
Destinataire
sujet = InputBox("taper l'objet du message")
texte = InputBox("taper le corps du message")
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte, 3
'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
'pièce jointe, joindre le fichier contenu dans la variable Rep, valider
puis
'envoyer.
SendKeys "%I" & "p" & Rep & "~" '& "%s" mise en commentaire pour ne pas
envoyer
End Sub
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news:OkKkFoKVFHA.3840@tk2msftngp13.phx.gbl...
gmore <gmore@discussions.microsoft.com> que je salut a écrit dans
5594D13B-3EE8-45DB-B029-41E0B145C759@microsoft.com
Bonjour à vous,
J'utilises déjà sendmail avec VBA, mais comment ne pas envoyer le
courriel et seulement obtenir la fenêtre d'un nouveau courriel
Outlook avec le classeur joint pour qu'une personne puisse elle-même
tapper les adresses de courriel désirées?
Par la suite, elle pourra appuyer sur le bouton Envoyer.
Merci à l'avance de vos suggestions.
Guy
Utilises un objet OUTOOK.application.MailItem
regarde dans l'aide
et dans l'instruction "with " ne met pas le ".send" par contre faut mettre
un ".display"
ex :
Dim oItem As Outlook.MailItem
With oItem
.To = FormChoix.TextBoxEmail
.Body = Corps
.Subject = "toto "
'Add the document as an attachment, you can use the .displayname
property
'to set the description that's used in the message
.Attachments.Add Source:=source_name, Type:=olByValue
' demande ar reception et lecture
.OriginatorDeliveryReportRequested = true
.ReadReceiptRequested = true
.DeleteAfterSubmit = False
'.SaveSentMessageFolder = monMAPIFolder
.Display
End With
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
bonjour guy essaie cela qui n'est pas de moi, bien sûr mais de frédéric sigonneau HTH jps
Sub EnvoiFichierAvecOE() 'cette proc de FS permet d'envoyer un fichier à une liste ou à _ 'une personne à partir d'excel et via OE Dim dest$, sujet$, texte$ Dim Rep 'Application.ScreenUpdating = False 'Rep est le nom du fichier à joindre. Rep = Application.GetOpenFilename("Tous les fichiers (*.*), *.*") Destinataire: dest = InputBox("Addresse destinataire:") If dest = "" Then Exit Sub If InStr(1, dest, " ") Then MsgBox "Adresse invalide !", 64: GoTo Destinataire If InStr(1, dest, "@") = 0 Then MsgBox "Adresse invalide !", 64: GoTo Destinataire sujet = InputBox("taper l'objet du message") texte = InputBox("taper le corps du message") Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & dest & _ "?subject=" & sujet & _ "&Body=" & texte, 3 'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion 'pièce jointe, joindre le fichier contenu dans la variable Rep, valider puis 'envoyer. SendKeys "%I" & "p" & Rep & "~" '& "%s" mise en commentaire pour ne pas envoyer End Sub
"Oliv'" <(supprimerceci) a écrit dans le message de news:
gmore que je salut a écrit dans
Bonjour à vous, J'utilises déjà sendmail avec VBA, mais comment ne pas envoyer le courriel et seulement obtenir la fenêtre d'un nouveau courriel Outlook avec le classeur joint pour qu'une personne puisse elle-même tapper les adresses de courriel désirées?
Par la suite, elle pourra appuyer sur le bouton Envoyer.
Merci à l'avance de vos suggestions. Guy
Utilises un objet OUTOOK.application.MailItem regarde dans l'aide et dans l'instruction "with " ne met pas le ".send" par contre faut mettre un ".display"
ex : Dim oItem As Outlook.MailItem With oItem .To = FormChoix.TextBoxEmail .Body = Corps .Subject = "toto " 'Add the document as an attachment, you can use the .displayname property 'to set the description that's used in the message .Attachments.Add Source:=source_name, Type:=olByValue ' demande ar reception et lecture .OriginatorDeliveryReportRequested = true .ReadReceiptRequested = true .DeleteAfterSubmit = False '.SaveSentMessageFolder = monMAPIFolder .Display End With
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~