Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Excel et Notes

Excel et Notes

4 réponses
Avatar
Lulu la nantaise
Bonjour,
Avec tous vos conseils j'ai fait une application que je trouve superbe =>
Merci à tous !
En revanche, au bureau nous utilisons Notes comme logiciel de messagerie, y
aurait-il qqun qui pourrait m'indiquer comment, par le biais d'une macro
Excel envoyer un Email avec ce logiciel ?
En vous remerciant encore,
Joyeux Noël !
Lulu
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
anonymousA
Bonjour,

un début de réponse

http://www.excelabo.net/xl/sortir.php#maillotus

A+

Lulu la nantaise wrote:
Bonjour,
Avec tous vos conseils j'ai fait une application que je trouve superbe =>
Merci à tous !
En revanche, au bureau nous utilisons Notes comme logiciel de messagerie, y
aurait-il qqun qui pourrait m'indiquer comment, par le biais d'une macro
Excel envoyer un Email avec ce logiciel ?
En vous remerciant encore,
Joyeux Noël !
Lulu


Avatar
Lulu la nantaise
Génial ! j'essaie !
Bonnes fêtes de fin d'année
Lulu

"anonymousA" a écrit dans le message de
news:
Bonjour,

un début de réponse

http://www.excelabo.net/xl/sortir.php#maillotus

A+

Lulu la nantaise wrote:
Bonjour,
Avec tous vos conseils j'ai fait une application que je trouve superbe =>
Merci à tous !
En revanche, au bureau nous utilisons Notes comme logiciel de messagerie,
y

aurait-il qqun qui pourrait m'indiquer comment, par le biais d'une macro
Excel envoyer un Email avec ce logiciel ?
En vous remerciant encore,
Joyeux Noël !
Lulu


Avatar
Hervé 92
Sur le forum Dominoarea, dans trucs et astuces (de mémoire) ya un post sur
des parametres de Lotus (demande d'AR, Importance du message, etc...) pour
les version 4.5, 5 et 6. J'ai fait un post à ce sujet dans ce newsgroup au
cours de la première quinzaine de novembre.

A+


"Lulu la nantaise" a écrit dans le message de
news:
Génial ! j'essaie !
Bonnes fêtes de fin d'année
Lulu

"anonymousA" a écrit dans le message de
news:
Bonjour,

un début de réponse

http://www.excelabo.net/xl/sortir.php#maillotus

A+

Lulu la nantaise wrote:
Bonjour,
Avec tous vos conseils j'ai fait une application que je trouve superbe =>
Merci à tous !
En revanche, au bureau nous utilisons Notes comme logiciel de messagerie,
y

aurait-il qqun qui pourrait m'indiquer comment, par le biais d'une macro
Excel envoyer un Email avec ce logiciel ?
En vous remerciant encore,
Joyeux Noël !
Lulu






Avatar
Desmo999
voici une grande macro que j'avais récupéré sur le net et adapté
les adresses email se trouve dans une feuille de calcul cellule C3:E23

' Variables dans Message()
Public Msg, Style, Title, Help, Ctxt, Response, MyString
'
'
'Variables dans SendNotesMail

Sub message()
'Cette procédure est utilisée pour éviter un malencontreux clic sur le
bouton d'envoi qui se trouve dans la feuille de calcul
Msg = "Souhaitez-vous continuer?" ' Définit le
' message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = "Confirmation de l'émission de mail " ' Définit le titre.
Help = "DEMO.HLP" ' Définit le fichier d'aide.
Ctxt = 1000 ' Définit le contexte de la rubrique.

Response = MsgBox(Msg, Style, Title, Help, Ctxt) ' Affiche le message.

If Response = vbYes Then ' L'utilisateur a choisit Yes.
Call SendNotesMail ' Effectue une action.
MsgBox "Fin du traitement"
Else ' L'utilisateur a choisi No.
MsgBox "Arrêt de la procédure" ' Effectue une action.
End If
End Sub



Sub SendNotesMail()
'envoyer un mail (et pièce jointe) avec Lotus Notes
'Set up the objects required for Automation into lotus notes
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 Destnatr As String, CopieA As String
Dim RacineFile As String, strFile1, Sujet As String
Dim strFile As String, strPath As String
Dim Text1, Text2, Text3, Text4, Text5, Text6, Text7 As String
Dim Sign1, Sign2, Sign3, Sign4 As String


strFile = Cells(17, 8).Value
strPath = Cells(18, 8).Value
For desti = 3 To 5
For cptr = 1 To 21

Destnatr = Cells(cptr + 2, desti).Value 'Il faut modifier le N° de
colonne

pour prendre en compte une
'autre colonne de destinataire

If Destnatr <> "" Then

'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems you
'can pass an empty string
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

strFile1 = Cells(cptr + 2, 2).Value

CopieA = "mon email pour me donner une copie de l'envoi" ' à adapter
Sujet = Cells(3, 7).Value
Text1 = Cells(3, 8).Value: Text2 = Cells(4, 8).Value: Text3 = Cells(5,
8).Value
Text4 = Cells(6, 8).Value: Text5 = Cells(7, 8).Value: Text6 = Cells(8,
8).Value
Text7 = Cells(9, 8).Value
Sign1 = Cells(3, 9).Value: Sign2 = Cells(4, 9).Value: Sign3 = Cells(5,
9).Value: Sign4 = Cells(6, 9).Value

MailDoc.Form = "Memo"
MailDoc.sendto = Destnatr '"mon email pour me donner une copie de
l'envoi"

' à adapter
MailDoc.CopyTo = CopieA
MailDoc.Subject = Sujet '"test envoi" ' idem
MailDoc.Body = Text1 & Chr(10) & Text2 & Chr(10) & Text3 _
& Chr(10) & Text4 & Chr(10) & Text5 & Chr(10) & Text6 _
& Chr(10) & Chr(10) & Text7 _
& Chr(10) & Chr(10) & Sign1 & Chr(10) & Sign2 _
& Chr(10) & Sign3 & Chr(10) & Sign4 '"bla... " & Chr(10) & "bla" &
"..."

'idem

MailDoc.SAVEMESSAGEONSEND = SaveIt
'Set up the embedded object and attachment and attach it
Attachment = strPath & strFile1 & strFile '"c:winzip.log"
' à adapter
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment,
"Attachment")

MailDoc.CREATERICHTEXTITEM ("Attachment")
End If
'Send the document
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items
folder
MailDoc.Send 0, recipient
'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing

End If
Next cptr
Next desti
End Sub




"Hervé 92" a écrit dans le message de
news:%23TlatP%
Sur le forum Dominoarea, dans trucs et astuces (de mémoire) ya un post sur
des parametres de Lotus (demande d'AR, Importance du message, etc...) pour
les version 4.5, 5 et 6. J'ai fait un post à ce sujet dans ce newsgroup au
cours de la première quinzaine de novembre.

A+


"Lulu la nantaise" a écrit dans le message
de

news:
Génial ! j'essaie !
Bonnes fêtes de fin d'année
Lulu

"anonymousA" a écrit dans le message de
news:
Bonjour,

un début de réponse

http://www.excelabo.net/xl/sortir.php#maillotus

A+

Lulu la nantaise wrote:
Bonjour,
Avec tous vos conseils j'ai fait une application que je trouve superbe
=>



Merci à tous !
En revanche, au bureau nous utilisons Notes comme logiciel de
messagerie,



y
aurait-il qqun qui pourrait m'indiquer comment, par le biais d'une
macro



Excel envoyer un Email avec ce logiciel ?
En vous remerciant encore,
Joyeux Noël !
Lulu