Pb vba: corps de mail dans lotus

[neudine]

Bonjour,

Je découvre les macros! et je suis paumée!!!!

J'ai créé un lexique. Dans ce lexique j'ai un formulaire où les gens peuvent apporter des modifications au lexique. Je souhaiterais que lorsqu'ils cliquent sur un bouton, la boite mail (Lotus dans notre entreprise😡) s'ouvre et que tout se fasse automatiquement et qu'ils n'aient plus qu'à cliquer sur "envoyer".

J'arrive à tout faire sauf le corps du mail. J'ai beau chercher sur le forum les codes trouvés ne fonctionnent pas!

Mon code, pour déjà avoir le destinataire et le sujet du mail:

Sub email()
adresse = "xxxxx@xxxx.fr"
Sujet = "Formulaire de modification du lexique"

URLto = "mailto:" & adresse & "?subject=" & Sujet & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub


J'ai créé une 2eme macro pour copier le tableau que je souhaite insérer dans le corps du mail:

Sub Copie()
'
' Copie Macro
'

'
Range("C9 : D43").Select
Selection.copy
End Sub


2 possibilités:

- Ajouter dans le corps du message une commande pour juste coller ce qui a été copié avec la 1ere macro (mais je ne sais pas comment on fait)
- soit compiler les 2 macros pour n'en faire qu'une et là je sais encore moins faire!!!!! mais celle ci serait l'idéal pour moi


Je suis vraiment bloquée merci de me venir en aide

 

[James007]

Re : Pb vba: corps de mail dans lotus

Bonjour,

Au bas de cette page, tu trouveras des discussions similaires ...
dans lesquelles le corps du message (body) est traité, ce qui devrait t'aider à débloquer ta situation ...

A +

 

[neudine]

Re : Pb vba: corps de mail dans lotus

Merci j'ai bien lu tout ces codes mais au final je ne comprends pas comment l'adapter à ma situation parce que je n'y connais quedale en codage. :-(
Je suis desolée ce n'est pas évident pour moi c'est pour ca que je me suis décidée à poser la question sur le forum

 

[James007]

Re : Pb vba: corps de mail dans lotus

Re ... Bonjour,

Si tu débutes totalement en VBA, peut-être que dans ton entreprise, quelqu'un pourra t'aider à adapter la macro de Roland M ... qui a recontré le même problème que toi, et qui a mis au point, pour son entreprise, la macro suivante :

' --------- Envoi d'un mail avec Lotus Notes ---------- .
'Ajouter la référence Lotus Domino Objects (domobj.tlb) .
'Cocher Référence  [x]Lotus Domino Objects              .
'entrée du CheminEtFichier s'il y a lieu
'entrée Sujet et Message As String
Public Sub EnvoiMailLocal(CheminEtFichier As String, Sujet As String, Message As String)
Dim oSession As Object     'CreateObject("Notes.NotesSession")
Dim UserName As String     'Nom d'utilisateur
Dim DataBase As Object     'Base des mails
Dim DataBaseName As String 'Nom de la base
Dim Document As Object     'Mail
Dim AttachME As Object     'Fich joint en RTF
Dim AttachF1 As Object     '1' pièce attachée

On Error GoTo ErreurNET: Err.Clear '*****

' Crée la session
Set oSession = CreateObject("Notes.NotesSession")
' Récupère nom d'utilisateur
UserName = oSession.UserName
DataBaseName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
' Ouvre la base des mails (si fermé, ouvre et demande le password)
Set DataBase = oSession.GetDataBase("", DataBaseName)
If Not DataBase.IsOpen Then DataBase.OpenMail

'########################## envoi ###############################################
'récupère dans la feuille nommée NomDeLaFeuilDATA$ et le Range nommé "CellDATA_AdresDestinataire"
'les adresses séparées par ";"
Dim Tablo As Variant, AdresDestinataire As String
AdresDestinataire = Sheets(NomDeLaFeuilDATA$).Range("CellDATA_AdresDestinataire")
If InStr(AdresDestinataire, ";") = 0 Then AdresDestinataire = AdresDestinataire & ";"
Tablo = Split(AdresDestinataire, ";")
'       boucle envoi                 .
For I = LBound(Tablo) To UBound(Tablo)
 If Trim(Tablo(I)) > "" Then
    AdresDestinataire = Tablo(I)
    'crée le document et colle /AdresDestinataire /Sujet /Message
    Set Document = DataBase.CreateDocument
    Document.Form = "Memo"
    Document.Sendto = AdresDestinataire
    Document.Subject = Sujet
    Document.Body = Message
    'Joint le Fichier s'il y en a un !?
    If CheminEtFichier <> "" Then
       Set AttachME = Document.CreateRichTextItem("Attachment")
       Set AttachF1 = AttachME.EmbedObject(1454, "", CheminEtFichier, "Attachment")
    End If
    'Envoi le Mail
    Document.SaveMessageOnSend = True 'True svg dans les courriers envoyés
    Document.PostedDate = Now()
    Document.Send 0, AdresDestinataire
    ' suite...
    Set Document = Nothing: Set AttachME = Nothing: Set AttachF1 = Nothing
 End If
Next
GoTo FinMail ' fin ##############################################################

ErreurNET:
Msg$ = "Erreur " & Err.Source & "  No " & Err.Number & vbLf & vbLf & Err.Description
T$ = "Envoi Mail: Problème de connexion !?"
MsgBox Msg$, vbCritical, T$, Err.HelpFile, Err.HelpContext
GoTo FinMail

FinMail:
Set oSession = Nothing: Set DataBase = Nothing
Set Document = Nothing: Set AttachME = Nothing: Set AttachF1 = Nothing
On Error GoTo 0: Err.Clear
End Sub

Bon Courage
Excellente Journée

A +

 

[neudine]

Re : Pb vba: corps de mail dans lotus

Merci c'est gentil de ta part mais dans mon entreprise malheureusement personne ne peut m'aider. J'ai demandé tout le monde dit savoir faire des macros mais quand déjà je montre la mienne qui crée le mail dans la boite lotus avec le destinataire et le sujet pré rempli ils me regardent comme si j'étais un génie alors bon...

Merci qd meme peut etre qqun pourra me dépanner sur le forum

 

[James007]

Re : Pb vba: corps de mail dans lotus

Re,

Si tu dois tout faire toute seule, il faudrait avant que tu testes la macro de Roland M

Comme tu le vois, au début de sa macro, il faut d'abord ajouter une référence

Faire Alt F11, puis dans le menu, choisir Outils puis Références et cocher
le choix Lotus Domino Objects

Ensuite, tu peux tester sa macro ...

A +

 

[neudine]

Re : Pb vba: corps de mail dans lotus

Merci encore mais ce code est bcp trop compliqué pour moi je n'y comprends rien du tout...😱😱😱
Je n'arrive pas à le tester. j'ai bien coché ce qu'il fallait mais ds le code je ne sais pas quoi changer...

Il faudrait que je parte soit de ma base avec les codes déjà créés soit qu'on me dise quoi faire parce que là je suis vraiment bloquée.

Oui je sais je passe pour une dinde mais tant pis!😀

 

[James007]

Re : Pb vba: corps de mail dans lotus

Avec Noël qui approche ... passer pour une dinde pourrait s'avérer excessivement dangereux ... 😉

Mais, je te rassure : nous sommes absolument tous passer par ces mêmes étapes ...

Il n'y a que deux recettes :

1. progresser pas-à-pas

2. persévérer

Bon Courage

A +
🙂

 

[mutzik]

Re : Pb vba: corps de mail dans lotus

bonjour,

voili vite fait un classeur qui envoie des lotus

 

[neudine]

Re : Pb vba: corps de mail dans lotus

bonjour,

voili vite fait un classeur qui envoie des lotus

Merci beaucoup mais je n'arrive pas à faire fonctionner ce que tu m'as envoyé. Mais je crois que parmi mes bonnes résolutions 2011 (en avance!) --> éviter de me compliquer la tâche!
J'ai réussi avec un code à remplir le nom du destinataire, le sujet et un message. Donc tant pis, les gens prendront 5 minutes pour coller eux meme le tableau dans le mail.
Et puis ca sert à rien de tout le temps leur mâcher le travail ;-)

Je m'en tiendrai à ce que je sais faire, je gagnerai du temps!

 

[et1000lio]

Re : Pb vba: corps de mail dans lotus

Bonjour Neudine,

Je suis sur Lotus aussi, et j'ai bien patauger mais j'utilise l'envoi de mail à partir d'Excel et via Lotus Notes et cela fonctionne
La seule manipulation a effectuer dans Lotus c'est de coller ce qui a été sélectionné automatiquement....
En espérant t'avoir apporter une réponse...
Bon courage...

Et1000lio
@+


Vba lié à un bouton de commande (Tu peux l'exécuter via une macro)

Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Range("C4:j25").Select 'copie une zone du fichier EXCEL"
Selection.Copy
MailAd = Range("O7") 'sélectionne la cellule O7 où se trouve une adresse mail
Copie = Range("M31") 'sélectionne la cellule M31 où se trouve une adresse mail pour copie
Subj = "COMPARATIF PRIX - DOSSIER : " & Range("C6") 'Objet du mail avec texte préformaté et sélection d'une cellule
Msg = Msg & "Bonjour " & Range("p7") & ",%0D%0A %0D%0A" 'Message préformaté avec texte d'une cellule ici un prénom dans la cellule P7
Msg = Msg & "Pour information prix obtenus dossier : " & Range("c6") & ",%0D%0A %0D%0A" 'Message préformaté avecdu texte d'une cellule ici un numéro de dossier
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg & "&Cc=" & Copie
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub