Transmettre classeur actif par mail Résolu/Fermé

Question

Bonjour à chacun,
Je souhaiterai envoyer le classeur actif (2 feuilles), lors de la validation d'une fiche de renseignements lorsque clic sur le bouton Valider saisie
L'adresse mail de l’expéditeur se trouvant en A49 et les destinataires de A51 à A55.
Je ne maîtrise pas du tout le Vba.
En vous remerciant.

 https://www.cjoint.com/c/IEbnNAzV1p6

f894009 · Answer

Bonjour,

A voir:

https://www.rondebruin.nl/win/s1/outlook/amail1.htm

jean300 · Answer

Bonjour f894009 
Je te remercie de me répondre, mais je ne parle pas l'anglais
Aurais-tu la gentillesse de me mettre le code Stp
En te remerciant

jean300 · Answer

Bonjour  cher ami
Je ne me souviens pas du tout de ce classeur, certainement du à l'AVC de noël dernier, mais reçoit tous mes remerciements pour ta bonne mémoire
Au plaisir

jean300 · Answer

Bonjour f894009
Dans la macro ci-dessous il y a un problème à Set Plage erreur 13
Je te remercie de bien vouloir me corriger

Sub Envoi_Mail()
Dim ol As Object, myItem As Object
Dim ListDest As String
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'Propriétés de l'e-mail
With OutMail
          Liste = ""
'Plage Nommée "Dest"     
          Set Plage = Dest      ' ????
'Récupération de la liste des destinataires
          For Each Cell In Plage.Cells
               If Liste = "" Then
                   Liste = Liste & Cell
               Else
                   Liste = Liste & ";" & Cell
               End If
         Next Cell
.To = Liste
myItem.Subject = "envoi d'un fichier attaché"
myItem.Body = "Veuillez trouver ci-joint le fichier pour mise à jour de la Base"
'fichier en cours d'utilisation envoyé en attaché:
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.Send
End With
Set ol = Nothing
End Sub

jean300 · Answer

Bonjour, 
Merci pour ta réponse, cependant ça bloque à :  .Send

jean300 · Answer

https://img-19.ccm2.net/SD9wEYrnPvF3EsXjMoiF8ermhNw=/907955641f384a33a4461a95615b8794/ccm-ugc/Capture.JPG

jean300 · Answer

Re
J'ai regardé Internet  mais rien trouvé de probant

jean300 · Answer

Voici en te remerciant
 https://www.cjoint.com/c/IEekDbgLFv6

jean300 · Answer

Bonsoir f894009
Je te prie de bien vouloir m'excuser car je m'aperçois que je me suis planté dans ma demande
Je reviendrai vers toi lundi ou mardi car j'ai de grosses difficultés pour raisonner
Je te remercie de ta patience et de ton indulgence

jean300 · Answer

Désolé pour cette perte de temps mon ami
Ce n'est pas le dossier actif que je souhaite envoyer mais "MonDossier.zip" qui se trouve sur le bureau l'écran.
Que ce dossier soit transmis direct sans affichage de Outlook
En te remerciant et en renouvelant mes excuses

f894009 · Answer

Bonjour,

en renouvelant mes excuses
Y a pas d'lezard

source_file = "chemin sur le disque/MonDossier.zip"

jean300 · Answer

Re
Je te remercie f894009
J'ai modifié comme suit :
        'fichier envoyé en attache :
        'source_file = "chemin sur le disque/NouvelFiche.zip"
        .Attachments.Add "E:\Utilisateurs\Castor\Desktop\NouvelFiche.zip"
        '.display
        .Send
Mais, car il y a un mais, je ne connais pas le chemin des personnes qui enverront cette fiche, la seule chose certaine c'est que le dossier s'appellera NouvelFiche.zip
Merci de m'éclairer

jean300 · Answer

Bonjour f894009
Suivant vos conseils, j'ai mis l'ensemble des fichiers dans C:\ADD\

jean300 · Answer

Re Dans cette macro, le mail est envoyé deux fois, pourquoi ? Sub TransMail() Dim OL As Object If StrComp(Application, "Outlook", vbTextCompare) = 0 Then Set OL = Application Else Set OL = CreateObject("outlook.application") End If Dim MESSAGE As Object Dim objRecipient As Object 'en LATEBINDING on doit déclarer les constantes Outlook utilisées Const olFormatPlain = 1 Const olFormatHTML = 2 Const olTo = 1 Const olCC = 2 Const olBCC = 3 Set MESSAGE = OL.CreateItem(0) With MESSAGE .Subject = "Mise a jour Annuaire_APEM" 'Soit on ajoute un Corps en TEXTE BRUT .BodyFormat = olFormatPlain .Body = "Veuillez trouver ci-joint un dossier pour la mise à jour de l'annuaire." & vbCr & "Jean" 'Soit on ajoute un Corps en HTML '.BodyFormat = olFormatHTML '.HTMLBody = "

Bonjour,

Ceci est un exemple de Message HTML

Il faut utiliser des balises HTML pour formater le texte.

En gras, Italic, Souligné

Je suis passé à la ligne

Voici un lien hypertexte.

" _ & "Joe User" 'Ajout des destinataires zone nommée : "DestMail" Dim cellule As Range For Each cellule In Worksheets("FR").Range("DestMail") If InStr(1, cellule.Value, "@") > 0 Then Set objRecipient = .Recipients.Add(cellule.Value) objRecipient.Type = olTo 'olBCC, olCC, olOriginator ou olTo. objRecipient.Resolve End If Next 'Ajout d 'une PJ Dim MaPJ 'Nom du dossier a joindre : "NouvelFiche.zip" Dim strFolder As String, WshShell, leFichier Set WshShell = CreateObject("WScript.Shell") strFolder = WshShell.SpecialFolders("Desktop") MaPJ = "NouvelFiche.zip" 'on vérifie d'abord qu'il existe. If Dir(strFolder & "\" & MaPJ) <> "" Then '.Attachments.Add MaPJ "NouvelFiche.zip" .Attachments.Add (strFolder & "\" & MaPJ) Else MsgBox "Fichier : " & MaPJ & vbCr & "Non trouvée sur:" & vbCr & strFolder, vbCritical .display 'on affiche le mail et fin End End If 'ajout pour lecture ' .ReadReceiptRequested = True 'envoi selon adresse mail en : .SentOnBehalfOfName = Worksheets("FR").Range("J13") 'Display 'Soit je l'affiche .Send 'Soit je l'envoi End With End Sub

jean300 · Answer

Bonsoir J'ai fais : 'Soit on ajoute un Corps en HTML '.BodyFormat = olFormatHTML '.HTMLBody = "

Bonjour,

Ceci est un exemple de Message HTML

Il faut utiliser des balises HTML pour formater le texte.

En gras, Italic, Souligné

Je suis passé à la ligne

Voici un lien hypertexte.

" _ ' & "Joe User" 'Destinataires de la zone nommée : "DestMail" Mais pareil 2 mail sont envoyés, vraiment mystérieux

jean300 · Answer

J'ai trouvé, il y a 2 fois transmail 1-en compresser 2-en envoyer
Merci à toi et bonne continuation

Transmettre classeur actif par mail

16 réponses

Discussions similaires