Envoyer par mail mon fichier modifié

**mattwarend** · 12/11/2008, 11h27

Super ! Merci !

Maintenant ça fonctionne ! (presque...

)

Voici mon code modifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
'Send the document
    dest = Sheets("MACRO").Range("A1") & ", " & Sheets("MACRO").Range("A2")
    monTab = Split(dest, ",")
    MailDoc.Send 0, monTab()
    MailDoc.PostedDate = Now()

Pour le presque... C'est que je voudrais automatiser avec auto_open mais que si je fais cette modification, mon fichier envoyé contient la macro auto_open et la macro se lance donc à l'ouverture du fichier...

**Godzestla** · 12/11/2008, 11h49

Donc ca fonctionne. Enfin.

Pour ta deuxième question, je te propose de cloturer cette demande en mettant résolu et de créer une nouvelle avec ton nouveau problème, qui n'a rien à voir.

**mattwarend** · 12/11/2008, 14h58

Je réouvre parce que je viens de me rendre compte qu'en lançant ma macro sur un autre PC, le fichier joint n'apparaît plus dans mon mail...

Je pense que ça doit venir du code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Attachment = ThisWorkbook.FullName
    If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If

**Godzestla** · 12/11/2008, 15h17

Demande au Debug ce que vaut Attachment.

**mattwarend** · 12/11/2008, 16h03

Je sais pas trop comment on met en place le debug alors j'ai mis en place un espion qui me dit que la valeur Attachement est vide...

**mattwarend** · 12/11/2008, 16h10

Non, non, je n'ai rien dit, il me dit que Attachement est sur C:\Documents and Settings\moi\Desktop\Quota Alerte Mail.xls

**drakkar_agfa** · 12/11/2008, 16h42

Es-tu certain que

C:\Documents and Settings\moi\Desktop\Quota Alerte Mail.xls

existe sur l'autre PC? Est-ce que le chemin est différent? (Moi?)

**mattwarend** · 12/11/2008, 17h20

Je suis contient que ça n'est pas très clair, désolé mais je n'arrive pas à faire autrement.
En gras dans le texte ce que me renvoie Attachment.
Tout à l'air d'être bon, mais bien sur, ça ne fonctionne pas.
Si un PC, ça fonctionne mais pas sur l'autre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sheets("Parms").Range("A1") = 0
       newname = "C:\Quota Alerte Mail.xls" => newname = "C:\Quota Alerte Mail.xls"
    ThisWorkbook.SaveCopyAs Filename:=newname => newname = "C:\Quota Alerte Mail.xls"
    Sheets("Parms").Range("A1") = 1
    Attachment = newname => newname = "C:\Quota Alerte Mail.xls"
        
    Attachment = ThisWorkbook.FullName => newname = "C:\Quota Alerte Mail.xls"
    If Attachment <> "" Then  => newname = "C:\Quota Alerte Mail.xls"
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") => ne renvoie rien
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")  => newname = "C:\Quota Alerte Mail.xls" => ne renvoie rien
        MailDoc.CREATERICHTEXTITEM ("Attachment") => ne renvoie rien
    End If

**drakkar_agfa** · 12/11/2008, 17h23

Est-ce possible de mettre ton code dans la balise.
Et l'arranger avec des commentaires parce que pour l'instant ça donne ceci et ce n'est pas très clair.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sheets("Parms").Range("A1") = 0
newname = "C:\Quota Alerte Mail.xls" => newname = "C:\Quota Alerte Mail.xls"
ThisWorkbook.SaveCopyAs Filename:=newname => newname = "C:\Quota Alerte Mail.xls"
Sheets("Parms").Range("A1") = 1
Attachment = newname [/b]=> newname = "C:\Quota Alerte Mail.xls"[/b]
 
Attachment = ThisWorkbook.FullName => newname = "C:\Quota Alerte Mail.xls"
If Attachment <> "" Then [/b]newname = "C:\Quota Alerte Mail.xls"[/b]
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") => ne renvoie rien
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment") => newname = "C:\Quota Alerte Mail.xls"[/b] => ne renvoie rien
MailDoc.CREATERICHTEXTITEM ("Attachment") => ne renvoie rien
End If

Merci

**mattwarend** · 12/11/2008, 17h44

Je suis contient que ça n'est pas très clair, désolé mais je n'arrive pas à faire autrement.
En gras dans le texte ce que me renvoie Attachment.
Tout à l'air d'être bon, mais bien sur, ça ne fonctionne pas.
Si un PC, ça fonctionne mais pas sur l'autre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sheets("Parms").Range("A1") = 0
       newname = "C:\Quota Alerte Mail.xls" => newname = "C:\Quota Alerte Mail.xls"
    ThisWorkbook.SaveCopyAs Filename:=newname => newname = "C:\Quota Alerte Mail.xls"
    Sheets("Parms").Range("A1") = 1
    Attachment = newname => newname = "C:\Quota Alerte Mail.xls"
        
    Attachment = ThisWorkbook.FullName => newname = "C:\Quota Alerte Mail.xls"
    If Attachment <> "" Then  => newname = "C:\Quota Alerte Mail.xls"
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") => ne renvoie rien
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")  => newname = "C:\Quota Alerte Mail.xls" => ne renvoie rien
        MailDoc.CREATERICHTEXTITEM ("Attachment") => ne renvoie rien
    End If

**drakkar_agfa** · 12/11/2008, 18h44

J'ai ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    newname = "C:\Quota Alerte Mail.xls" '>= newname = "C:\Quota Alerte Mail.xls"
    ThisWorkbook.SaveCopyAs Filename:=newname '>= newname = "C:\Quota Alerte Mail.xls"
    attachment = newname '>= newname = "C:\Quota Alerte Mail.xls"
 
    attachment = ThisWorkbook.FullName '>= newname = "C:\Quota Alerte Mail.xls"
    If attachment <> "" Then  '=> newname = "C:\Quota Alerte Mail.xls"
        Set attachme = MailDoc.CREATERICHTEXTITEM("Attachment") '=> ne renvoie rien
        Set EmbedObj = attachme.EMBEDOBJECT(1454, "", attachment, "Attachment")  '=> newname = "C:\Quota Alerte Mail.xls" => ne renvoie rien
        MailDoc.CREATERICHTEXTITEM ("Attachment") '=> ne renvoie rien
    End If

Est-ce que tu peux nous donner tout ton code?
Est-ce que attachment, attachme et MailDoc sont bien déclarés?
Essais avec Option Explicit (Clin d'oeil à Godzestla)
Est-ce que (si tu utilises notes) l'autre PC à bien notes?

**Godzestla** · 12/11/2008, 21h16

Envoyé par drakkar_agfa

J'ai ceci
Essais avec Option Explicit (Clin d'oeil à Godzestla)

Bien vu drakkar_agfa

He mattwarend,
tu es de nouveau dans la choucroute.
Il y a une ligne en trop dans le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   attachment = ThisWorkbook.FullName '>= newname = "C:\Quota Alerte Mail.xls"

A supprimer sinon on envoi le fichier sans la modif pour auto_open

(héh de nouveau très fatigué...

)

Pour info, dans ton autre post, je t'ai donné une solution qui semble juste à 15h23, mais tu as un peu foutu la chianli dedans. !!!

**mattwarend** · 13/11/2008, 08h53

Salut !

Merci pour votre aide ! C'est cool !

Voici mon code complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
Sub Sendmail()
 
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
 
    ChDir "C:\Documents and Settings\admincot\Desktop"
    Workbooks.OpenText Filename:="\\eufrhqfs01wp\QUOTALOG\Usage.txt", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
 
ActiveWorkbook.Save
 
On Error Resume Next
 
 
    Dim Maildb As Object 'The mail database
    Dim UserName As String 'The current users notes name
    Dim MailDbName As String 'THe current users notes mail database name
    Dim MailDoc As Object 'The mail document itself
    Dim AttachME As Object 'The attachment richtextfile object
    Dim Session As Object 'The notes session
    Dim EmbedObj As Object 'The embedded object (Attachment)
    Dim dest As String
    Dim monTab() As String
 
 
    Set Session = CreateObject("Notes.NotesSession")
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    'Open the mail database in notes
    Set Maildb = Session.GetDatabase("", MailDbName)
     If Maildb.IsOpen = True Then
          'Already open for mail
     Else
 
     Maildb.OPENMAIL
 
     End If
    'Set up the new mail document
    Set MailDoc = Maildb.CreateDocument
    MailDoc.Form = "Memo"
    MailDoc.Subject = "Envoi Automatique Alerte Quota FS01"
    MailDoc.body = "Alerte de Quota sur FS01"
    MailDoc.SAVEMESSAGEONSEND = saveit
 
    Sheets("Parms").Range("A1") = 0
    newname = "C:\Quota Alerte Mail"
    Sheets("Parms").Range("A1") = 1
    Attachment = newname
 
      If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If
 
 
 
    'Send the document
    dest = Sheets("MACRO").Range("A1") & ", " & Sheets("MACRO").Range("A2")
    monTab = Split(dest, ",")
    MailDoc.Send 0, monTab()
    MailDoc.PostedDate = Now()
 
    'Clean Up
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
 
    Excel.Application.Quit
    Application.DisplayAlerts = False
 
End Sub

drakkar_agfa, pour répondre à tes questions :
attachment, attachme et MailDoc semblent bien déclarés.
Option Explicit, je dois le mettre en début de code (ça sert à quoi ? Je débute...)
Les deux PC disposent bien de Notes.

Godzestla, j'ai enlevé la ligne que tu m'as indiqué. Je vais voir ta réponse dans l'autre post.

Merci à tous les deux !

**Godzestla** · 13/11/2008, 09h31

Envoyé par mattwarend

Salut !

Godzestla, j'ai enlevé la ligne que tu m'as indiqué. Je vais voir ta réponse dans l'autre post.

Oui parce que là, c'est totalement foireux.....

**drakkar_agfa** · 13/11/2008, 16h38

Essais avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub testEnvoyer()
    Dim sDestinataire As String
    Dim sTitre As String
    Dim sCorp As String
    Dim sFile As String
 
    sDestinataire = ??????
    sTitre = ?????
    sCorp = ?????
    sFile = ?????
    Call EnvoyerFichier(sDestinataire, sTitre, sCorp, sFile)
End Sub
Public Sub EnvoyerFichier(ByVal MailDestinataire As String, ByVal Sujet As String, ByVal CorpsMessage As String, ByVal attachment As String)
 
'On Error GoTo Gerreur
 
'Dim session As Domino.NotesSession
Dim Session As Object
Dim db As Object
Dim doc As Object
Dim attachme As Object
Dim EmbedObj As Object
Set Session = CreateObject("notes.notessession")
Set db = Session.GETDATABASE("", "")
Call db.OPENMAIL
 
Set doc = db.CREATEDOCUMENT
 
With doc
    .Form = "Memo"
    .AltFrom = Session.UserName
    .BGTableColor = "bg_4"
    .logo = "StdNotesLtr17"
    .ReturnReceipt = 0
    .UseApplet = "True"
    .DefaultMailSaveOptions = 1
    .Encrypt = 0
    .Sign = 0
    .EnterSendto = MailDestinataire
    .SendTo = MailDestinataire
    .CopyTo = MailCopy
    .Subject = Sujet
    .body = CorpsMessage
    .from = Session.COMMONUSERNAME
    .posteddate = Now
    .SaveMessageOnSend = True
End With
If attachement <> "" Then
    Set attachme = doc.CREATERICHTEXTITEM("attachement")
    Set EmbedObj = attachme.EMBEDOBJECT(1454, "", attachment, "attachement")
    doc.CREATERICHTEXTITEM ("attachment")
End If
Call doc.SEND(False)
 
Exit Sub
Gerreur:
MsgBox Err.Number & " : " & Err.Description, vbCritical, "Erreur"
 
End Sub

Utilise la première fonction pour trouver le destinataire, le titre, le corp et la pièce jointe. Le reste, le bout pour envoyer le message, fonctionne.

Test avec des données connues genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub testEnvoyer()
    Dim sDestinataire As String
    Dim sTitre As String
    Dim sCorp As String
    Dim sFile As String
 
    sDestinataire = "Moi(La tienne)"
    sTitre = "Test du Titre"
    sCorp = "Test du corp"
    sFile = "C:(ton chemin)MyFile.xls"
    Call EnvoyerFichier(sDestinataire, sTitre, sCorp, sFile)
End Sub

Et si ça fonctionne, essais avec tes techniques pour sauvegarder le fichier, trouver son nom, utiliser tes ranges.
Comme ca, tu verras si l'envoye en tant que tel fonctionne.

**mattwarend** · 13/11/2008, 20h18

Salut drakkar_agfa,

Merci, merci !

Je teste dès demain au taf.
En fait je fais un copié collé des deux instructions que tu m'as donné et je lance la macro ?

**drakkar_agfa** · 13/11/2008, 20h21

Oui,
Mais oublis pas de changer dans la sub de lancement le destinataire et le fichier à envoyer (le titre et le corp ça ne dérange pas vraiment pour le test.)

**mattwarend** · 14/11/2008, 12h19

Salut !

L'envoi fonctionne toujours mais maintenant, pas de pièce jointe ni sur un PC ni sur l'autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Sub testEnvoyer()
    Dim sDestinataire As String
    Dim sTitre As String
    Dim sCorp As String
    Dim sFile As String
 
    sDestinataire = "monadresse@moi.com"
    sTitre = "Test du Titre"
    sCorp = "Test du corp"
    sFile = "C:\Nouveau dossier\Quota Alerte Mail.xls"
 
    Call EnvoyerFichier(sDestinataire, sTitre, sCorp, sFile)
End Sub
Public Sub EnvoyerFichier(ByVal MailDestinataire As String, ByVal Sujet As String, ByVal CorpsMessage As String, ByVal attachment As String)
 
'On Error GoTo Gerreur
 
'Dim session As Domino.NotesSession
Dim Session As Object
Dim db As Object
Dim doc As Object
Dim attachme As Object
Dim EmbedObj As Object
Set Session = CreateObject("notes.notessession")
Set db = Session.GETDATABASE("", "")
Call db.OPENMAIL
 
Set doc = db.CREATEDOCUMENT
 
With doc
    .Form = "Memo"
    .AltFrom = Session.UserName
    .BGTableColor = "bg_4"
    .logo = "StdNotesLtr17"
    .ReturnReceipt = 0
    .UseApplet = "True"
    .DefaultMailSaveOptions = 1
    .Encrypt = 0
    .Sign = 0
    .EnterSendto = MailDestinataire
    .SendTo = MailDestinataire
    .CopyTo = MailCopy
    .Subject = Sujet
    .body = CorpsMessage
    .from = Session.COMMONUSERNAME
    .posteddate = Now
    .SaveMessageOnSend = True
End With
If attachement <> "" Then
    Set attachme = doc.CREATERICHTEXTITEM("attachement")
    Set EmbedObj = attachme.EMBEDOBJECT(1454, "", attachment, "attachement")
    doc.CREATERICHTEXTITEM ("attachment")
End If
Call doc.SEND(False)
 
Exit Sub
Gerreur:
MsgBox Err.Number & " : " & Err.Description, vbCritical, "Erreur"
 
End Sub

J'ai vérifié la présence du fichier dans le répertoire, c'est OK.

Sinon, pour résoudre définitivement mon problème, est-il possible plutôt que d'envoyer mon fichier en pièce jointe de modifier mon code pour seul le contenu des cellules renseignées soient mise dans le corps du message ?

**JackOuYA** · 15/11/2008, 15h01

Bonjour,

je n'ai jamais envoyé de document avec notes... mais sans connaitre ses objets je ne vois pas le lien dans ton code entre le document envoyé et les piéces jointes ..:

tu utilise 2 objets : attachme et EmbedObj, mais tu ne les "lies" nulle-part à ton objet doc.. envoyé... il doit manquer quelque-chose

**drakkar_agfa** · 15/11/2008, 16h10

Oups, un erreur de ma part, regarde ceci!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
option explicit

Sub testEnvoyer()
    Dim sDestinataire As String
    Dim sTitre As String
    Dim sCorp As String
    Dim sFile As String
    
    sDestinataire = "monadresse@moi.com"
    sTitre = "Test du Titre"
    sCorp = "Test du corp"
    sFile = "C:\Nouveau dossier\Quota Alerte Mail.xls"
 
    Call EnvoyerFichier(sDestinataire, sTitre, sCorp, sFile)
End Sub
Public Sub EnvoyerFichier(ByVal MailDestinataire As String, ByVal Sujet As String, ByVal CorpsMessage As String, ByVal attachment As String)
 
'On Error GoTo Gerreur
 
'Dim session As Domino.NotesSession
Dim Session As Object
Dim db As Object
Dim doc As Object
Dim attachme As Object
Dim EmbedObj As Object
Set Session = CreateObject("notes.notessession")
Set db = Session.GETDATABASE("", "")
Call db.OPENMAIL
 
Set doc = db.CREATEDOCUMENT
 
With doc
    .Form = "Memo"
    .AltFrom = Session.UserName
    .BGTableColor = "bg_4"
    .logo = "StdNotesLtr17"
    .ReturnReceipt = 0
    .UseApplet = "True"
    .DefaultMailSaveOptions = 1
    .Encrypt = 0
    .Sign = 0
    .EnterSendto = MailDestinataire
    .SendTo = MailDestinataire
    .CopyTo = MailCopy
    .Subject = Sujet
    .body = CorpsMessage
    .from = Session.COMMONUSERNAME
    .posteddate = Now
    .SaveMessageOnSend = True
End With
If attachment <> "" Then
    Set attachme = doc.CREATERICHTEXTITEM("attachment")
    Set EmbedObj = attachme.EMBEDOBJECT(1454, "", attachment, "attachement")
    doc.CREATERICHTEXTITEM ("attachment")
End If
Call doc.SEND(False)
 
Exit Sub
Gerreur:
MsgBox Err.Number & " : " & Err.Description, vbCritical, "Erreur"
    
End Sub

Envoyer par mail mon fichier modifié

Macros et VBA Excel

Discussions similaires

Partager

Partager