Macro envoie email avec conditions !

[hellocarioca]

Bonjour!

j'utilise déjà dans ma macro l'application SendMail... et j'aimerai savoir s'il est possible de rajouter du texte dans le mail, si oui comment?
Aussi je voudrais savoir s'il est possible d'ajouter à ma macro, qq chose comme:
Si tel fichier n'existe pas, de pas envoyer à telle personne !

Et d'ailleurs j'aurai besoin de savoir si qd on demande à la macro d'ouvrir un certain fichier mais que celui-ci n'est pas obligatoirement là tout le temps... est ce qu'on peut dire à la macro:

Workbooks.Open Filename:= _
"C:\Documents and Settings\mlehello\My Documents\Collector - Maud\Maud_" & Format(Date, "dd-mm-yy") & ".xls"

Et si ce fichier n'exsite pas, au lieu de faire bugger la macro, de dire annuler l'ouverture; passer à l'étape suivante...

Je sais pas si c très comprehensible ce que je vous demande... mais j'espère que vous pourrez m'aider.

Merci

Maud

 

[hellocarioca]

Re : Macro envoie email avec conditions !

Personne veut me répondre... 🙁

 

[news]

Re : Macro envoie email avec conditions !

Re:

concernant envoi Excel par mail,
il y a plein de sujets postés su ce forum,
essaie de faire une recherche avec mot "mail" ou "email"

et j'aimerai savoir s'il est possible de rajouter du texte dans le mail, si oui comment?
utilise avec le code suivant:

Sub Mail()
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String, strbcc As String
Dim strsub As String, strbody As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

strto = "_____@_____.com" ' ou bien y mettre p.ex. = Range("A2")
strcc = "_____@_____2.com"
strbcc = ActiveCell ' est sélectionné l'adresse email figurant dans ActiveCell
strsub = "ci-joint fichier Excel"

strbody = "Bonjour, l'email fonctionne bien" & vbNewLine & vbNewLine & _
"à verify le document Excel en annexe"
With OutMail
.To = strto
.CC = strcc
.BCC = strbcc
.Subject = strsub
.Body = strbody
.Send
'est affiché les données du mail avant d'envoyer
' .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub