N
nono
Guest
bonjour le forum
Tout d'abord je voudrais vous dire que j'ai regardé beaucoup d'anciens post avant de rédiger ce message mais malheuresement, je ne trouve pas mon bonheur !!
Comme vous l'avez deviné, je veux envoyer un mail automatique en cliquant sur un bouton sous excel (sujet au combien abordé !!!)
Mon problème viens de du message de confirmation d'outlook que je voudrais ne pas voir.
Voici la macro que j'ai récupérer grace à la connaissance apparement sans limite de @+Thierry
Sub SendingDailyMail()
Dim OLApplication As Object, OLMail As Object
Dim Message As String
Dim TheDay As Date
TheDay = Date
Message = 'Good Morning,' & vbCrLf & vbCrLf & '= = = This is an automatic generated email = = =' & vbCrLf & vbCrLf & 'Please find enclosed the Report for Transactions for' & Format(TheDay, 'DDDD') & ' ' & Format(TheDay, 'DD/MM/YYYY') & vbCrLf & 'Best Regards' & vbCrLf & 'salut' & vbCrLf & vbCrLf
Set OLApplication = CreateObject('Outlook.Application')
Set OLMail = OLApplication.CreateItem(olMailItem)
With OLMail
.To = 'polo@voila.fr'
'.CC = MailCC
.Importance = olImportanceNormal
.Subject = 'Daily Transactions Summary Reports (' & _
Format(TheDay, 'YYYY-MM-DD') & ')'
.Body = Message
'.Attachments.Add 'I:MC_PRODReportsDailyTest1.xls'
'.Attachments.Add 'I:MC_PRODReportsDailyTest1.pdf'
.Categories = 'Daily'
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
.Send '<<<<<<<<<<<<<<<TO SEND DIRECTLY
'.Display '<<<<<<<<<<<<<TO SEE THE MAIL FIRST
End With
Set OLApplication = Nothing
Set OLMail = Nothing
End Sub
J'ai vu un xlien (dont j'ai oublié le nom : pardon) qui proposait d'utiliser un petit utilitaire qui s'appelle Express ClickYes, en effet ça marche super mais je trouve que c'est un peu dangeureux en vue d'éventuels virus et surtout, si on ne le désactive pas, outlook ne nous demandera plus aucune confirmation : bref, c'est pas glop ! :unsure:
J'en arrive (enfin) à ma question :
Serait-il envisageable de créer une macro ou un utilitaire qui active Express ClickYes quand j'en ai besoin et qui le désactive juste après ?
Ou alors, est ce que qq'un aurait une autre solution miracle pour ne pas qu'outlook me demande cette confirmation d'envoie ?
Voila, merci beaucoup d'avance.
Je précise que je travaille avec windows XP et la pack office 2003.
Tout d'abord je voudrais vous dire que j'ai regardé beaucoup d'anciens post avant de rédiger ce message mais malheuresement, je ne trouve pas mon bonheur !!
Comme vous l'avez deviné, je veux envoyer un mail automatique en cliquant sur un bouton sous excel (sujet au combien abordé !!!)
Mon problème viens de du message de confirmation d'outlook que je voudrais ne pas voir.
Voici la macro que j'ai récupérer grace à la connaissance apparement sans limite de @+Thierry
Sub SendingDailyMail()
Dim OLApplication As Object, OLMail As Object
Dim Message As String
Dim TheDay As Date
TheDay = Date
Message = 'Good Morning,' & vbCrLf & vbCrLf & '= = = This is an automatic generated email = = =' & vbCrLf & vbCrLf & 'Please find enclosed the Report for Transactions for' & Format(TheDay, 'DDDD') & ' ' & Format(TheDay, 'DD/MM/YYYY') & vbCrLf & 'Best Regards' & vbCrLf & 'salut' & vbCrLf & vbCrLf
Set OLApplication = CreateObject('Outlook.Application')
Set OLMail = OLApplication.CreateItem(olMailItem)
With OLMail
.To = 'polo@voila.fr'
'.CC = MailCC
.Importance = olImportanceNormal
.Subject = 'Daily Transactions Summary Reports (' & _
Format(TheDay, 'YYYY-MM-DD') & ')'
.Body = Message
'.Attachments.Add 'I:MC_PRODReportsDailyTest1.xls'
'.Attachments.Add 'I:MC_PRODReportsDailyTest1.pdf'
.Categories = 'Daily'
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
.Send '<<<<<<<<<<<<<<<TO SEND DIRECTLY
'.Display '<<<<<<<<<<<<<TO SEE THE MAIL FIRST
End With
Set OLApplication = Nothing
Set OLMail = Nothing
End Sub
J'ai vu un xlien (dont j'ai oublié le nom : pardon) qui proposait d'utiliser un petit utilitaire qui s'appelle Express ClickYes, en effet ça marche super mais je trouve que c'est un peu dangeureux en vue d'éventuels virus et surtout, si on ne le désactive pas, outlook ne nous demandera plus aucune confirmation : bref, c'est pas glop ! :unsure:
J'en arrive (enfin) à ma question :
Serait-il envisageable de créer une macro ou un utilitaire qui active Express ClickYes quand j'en ai besoin et qui le désactive juste après ?
Ou alors, est ce que qq'un aurait une autre solution miracle pour ne pas qu'outlook me demande cette confirmation d'envoie ?
Voila, merci beaucoup d'avance.
Je précise que je travaille avec windows XP et la pack office 2003.