Discussion :

[alex830001]

Bonjour,

Aprés quelques recherches sur les macro permettant d'envoyer des feuilles excel par mail, voici le code que j'ai écrit dans mon fichier
J'envoi une feuille d'un fichier excel par mail avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim Dest As String
Dest = Range("MACRO!J3").Value
Worksheets("ALVEA").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SendMail Recipients:=Dest, _
Subject:="Liste prix date d'enlévement : ", _
ReturnReceipt:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True

Mon probleme est que le fichier envoyé par mail porte un nom aléatoire, je voudrais qu'il porte toujours le meme nom et enfin est t'il possible d'inclure un message dans le corps du mail?

Merci pour votre aide.


Edit:

J'ai cherché partout mais visiblement il n'est pas possible d'inclure du texte dans le corps d'un mail avec la fonction sendmail.... c'est possible qu'avec Outlook mais évidement je suis sous Lotus

[alex830001]

Alors je viens de trouver un code qui permet d'envoyer un mail avec Lotus Note qui fonctionne!!!

Par contre je ne vois pas comment mettre mon fichier excel en piece jointe dans le mail.

La variable "EmbedObj" sert à priori à inclure une piece jointe mais je ne vois pas comment y attacher mon fichier.

Voici le code:

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
Sub SendNotesMail() 
 
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) 
 
    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 ......" 
    MailDoc.body = "message....."
    MailDoc.SAVEMESSAGEONSEND = saveit 
 
 
    'Send the document 
    MailDoc.PostedDate = Now()  
    MailDoc.Send 0, "306xshdi@xxxxxxx.fr" 
    'Clean Up 
    Set Maildb = Nothing 
    Set MailDoc = Nothing 
    Set AttachME = Nothing 
    Set Session = Nothing 
    Set EmbedObj = Nothing 
End Sub

EDIT:
j'ai essayé de rajouter une ligne genre:

Code :

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

MailDoc.Attachment = EmbedObj

Il ne crie pas, mais ça ne fonctionne pas.

[Godzestla]

Bonjour Alex,

regarde ici

Cordialement.

Godz.

[alex830001]

Merci Godzesla,

Alors dans mon code juste avant l'envoi j'ai rajouté ce bout de code par rapport à ton lien:

Code :

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

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

Par contre le niveau de ce code d'envoi de mail par Lotus Note dépasse largement mon niveau en VBA, je ne comprends pas comment lui dire que la piéce jointe (Attachement si j'ai bien compris) est mon fichier Excel.

[Godzestla]

Merci Godzesla,

Par contre le niveau de ce code d'envoi de mail par Lotus Note dépasse largement mon niveau en VBA, je ne comprends pas comment lui dire que la piéce jointe (Attachement si j'ai bien compris) est mon fichier Excel.

Re,

facile. Après avoir sauvé ton fichier (s'il y a lieu), tu initialise la variable Attachement avec le fullname de ton classeur.

le code devient donc quelquechose comme ceci.

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

NB : je ne comprends pas non plus tout à ce code mais je sais qu'il fonctionne.

[alex830001]

Oulala ça marche!!!! merci beaucoup, je vais pouvoir allez en épater plus d'un avec ma macro la

[alex830001]

J'essai maintenant de transmettre le mail à plusieurs destinataires, j'ai donc rajouté ceçi:

Code :

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

1
2
3
 
dim dest as String
dest = Sheets("MACRO").Cells(1, 10).Value & ", " & Cells(4, 10).Value

(Adresse donc en cellule 1,10 et 4,10.)

Puis lors de l'envoi , j'ai remplacé la ligne:

Code :

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

MailDoc.Send 0, "moi@taratata.fr"

par:

Code :

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

MailDoc.Send 0, dest

ça envoi le mail au premier de la liste mais pas au suivants...

[Godzestla]

pense à enlver le résolu si ça ne l'est plus.

je regarde, un instant, j'ai eu la même chose et je dois avoir la parade quelquepart.

[Godzestla]

Voilà,

j'ai trouvé.
Il faut renseigner une table au lieu d'un string avec des virgules commes séparateurs.

Donc tu dois transformer ton string en table (via split par exemple).

j'ai une version moche, qui fait la même chose, car à l'époque je ne connaissais pas split. mais elle fonctionne.

La voici, à prendre pour ce qu'elle vaut.

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
 
    'Split recipient list
    length = Len(Recipient)
    idx = 0
    off_out = 1
    Start = 1
    For off_in = 1 To Len(Recipient)
 
       If (off_in = Len(Recipient)) Then
          recip(idx) = Mid(Recipient, Start, off_in - Start + 1)
          idx = idx + 1
        End If
       If (Mid(Recipient, off_in, 1) = ",") Then
          recip(idx) = Mid(Recipient, Start, off_in - Start)
          idx = idx + 1
          Start = off_in + 2
        End If
    Next
 
 
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = recip

A+

[alex830001]

Super, merci beaucoup pour ton aide!

j'ai utilisé split, je ne connaissait pas.

Code :

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

1
2
3
4
 
Dim monTab() As String
 
monTab = Split(dest, ",")

et puis donc:

Code :

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

MailDoc.Send 0, monTab()