envoyé un mail avec lotus note 6 depuis excel

[alfonso]

bonjour

alors j'essaye de mettre au point une macros qui me permet d'envoyer un mail en utilisant le logiciel de messagerie par defaut lotus Notes 6.55

mais j'ai une erreur d'exécution
voici la macro

Sub Tst()
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim Temp As String
Dim CdoMessage As Object
Dim Fichier As String

Set Sourcewb = ActiveWorkbook
ActiveSheet.Copy
Set Destwb = ActiveWorkbook

Temp = ThisWorkbook.Path & Application.PathSeparator & "Classeur1.xls"

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

Destwb.SaveAs Temp
Fichier = Destwb.Path & Application.PathSeparator & Destwb.Name
Destwb.Close
Application.DisplayAlerts = True

Set CdoMessage = CreateObject("CDO.Message")
With CdoMessage
.Subject = "Essai"
.From = "xxx@free.fr"
.To = "xxx.xxx@xxx.xxx.com"
.CC = ""
.BCC = ""
.TextBody = "tableau"
.AddAttachment Fichier
.Send
End With

Application.ScreenUpdating = True

Set CdoMessage = Nothing
Kill Fichier
End Sub

l'erreur se situe vers la fin à la ligne ".Send"
la valeur de configuration Senusing est non valide
je précise que j'ai bien activé dans outils reference
Microsoft CMDO... et Lotus domino object et lotus note

merci d'avance de votre aide

 

[daimadoshi60]

Re : envoyé un mail avec lotus note 6 depuis excel

Bonjour,

Je ne sais pas si ce sujet est encore d'actualité. J'ai testé ce que disais ledzepfred (utiliser .display pour afficher le memo) et cela ne fonctionne pas.

Je suis en train de creer un petit bouton sous access pour permettre l'envoi de fichier par mail, et cela me serais bien utile.

Si quelqu'un peut m'aider, ca serai genial,

Merci d'avance