Help. Excel werkblad mailen met Lotus Notes

[__LAU__]

Ik loop stage bij een bedrijf waarbij ze elke week een meterstanden verturen via mail.
Deze standen staan ik excell en worden handmatig gekopieerd in lotus notes.

Nu heb ik gepobeerd via het opnemen van een macro, een macro te maken die automatisch het cel bereik selecteerd, dan automatisch een mail stuurd naar een bepaalde ontvanger en daarna het celbereik "paste" in de mail. De macro doet alles behalve de laatste stap.
Om te mailen had ik eerst een hyperlink gemaakt met daarin het mail adres. En het aanklikken van deze hyperling was ook opgenomen in de macro.

Kan iemand mij helpen? Ik zag dat in januari iemand het zelfde probleem had maar daar staan zoveel moeilijke codes dat ik er niet echt wijs uit wordt daar ik geen ervaring heb met VBA.

Hopelijk kan iemand mij helpen, alvast bedankt

Laurence

 

[jpvs]

Misschien ben je hier iets mee?

Op internet heb ik eens de volgende routine gevonden (SendNotesMail)


Als op het actieve werkblad de volgende gegevens staan
in kolom A: e-mail adres (kan ook lotus adres zijn = voornaam achternaam)
in kolom B: subject tekst
in kolom C: body tekst
in kolom D: eventueel een (volledige) bestandsnaam
dan zal de routine ZendenMail deze via Lotus Notes verzenden en alle verzonden mail wordt opgeslagen in de Send lijst.


'--- start code
Option Explicit


Public Sub ZendenMail()
Dim r As Range
Dim s As String


'Activeer de regel als de client nog niet is geregistreerd
'Call Shell("c:\winnt\regedit.exe /s " + """c:\program files\notes\notesw32.reg""")
For Each r In ActiveSheet.Range("A4").CurrentRegion.Rows
Application.StatusBar = r.Range("A1").Text
DoEvents
If r.Row > 1 Then
If Dir(r.Range("D1").Text) <> "" Then
'alleen zenden als attachment bestaat of geen attachment
s = Trim(r.Range("d1").Text)
Call SendNotesMail(r.Range("b1").Text, _
s, r.Range("A1").Text, r.Range("C1").Text)
End If
End If
Next
Application.StatusBar = False
End Sub


Private Sub SendNotesMail(Subject As String, _
Attachment As String, _
Recipient As String, _
BodyText As String)


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 DbDoc As Object


'Start a session to notes
On Error Resume Next
Set session = CreateObject("Notes.NotesSession")
If Err <> 0 Then
MsgBox "Eerst NOTES starten voordat deze routine wordt gestart"
Exit Sub
End If
'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 Maildb.OPENMAIL


'Set up the new mail document
Set MailDoc = Maildb.CREATEDOCUMENT


MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.Subject = Subject
MailDoc.body = BodyText
MailDoc.SAVEMESSAGEONSEND = True
'Set up the embedded object and attachment and attach it
If Attachment <> "" Then
Set AttachME = MailDoc.createrichtextitem("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, _
"", Attachment, "Attachment")
MailDoc.createrichtextitem ("Attachment")
End If
MailDoc.Save


'Send the document
'Gets the mail to appear in the sent items folder
MailDoc.PostedDate = Now()
MailDoc.SEND False, Recipient


Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing
End Sub


'--- einde code

Zelf heb ik geen ervaring met Lotus Notes.

Pierre

 

[__LAU__]

.....

hartstikke bedankt voor je snelle reactie maar eerlijk gezegd tast ik een beetje (heel erg) in het duister ik weet niet waar ik moet beginnen....

Kan ik dit copy pasten in een module van VBA?

Alvast bedankt!

 

[jpvs]

Ja, de listing moet in een module staan.

zie bijlage

Pierre

 

[__LAU__]

...

Harstikke bedankt, het lijkt te lukken,

ik ga gelijk even stoeien, dus ik sluit nog niet de topic,

ik laat weten hoe het gaat!

Nogmaals alvast hartstikke bedankt!!!
:thumb: :thumb: :thumb: :thumb:

 

[__LAU__]

nog een korte vraag piere...

Kan ik hiermee ook een celbereik versturen zoals c4;h60, en moet dat dan in de body?

hoor het wel ga verder stoeien....

Laurence

 

[jpvs]

Nog een suggestie,

Zou het bereik C4:H60 een naam kunnen geven bv Data


Sheets("Blad1").Range("Data").Copy
Workbooks.Open Filename:="C:\Map1.xls"
Sheets("Blad1").Range("c3").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("Blad1").Range("a1").Select
ActiveWorkbook.Save
ActiveWindow.Close

Hier moet je wel eerst Map1.xls in C:\ zetten

Pierre

 

[koosl]

_Lau_

Ik heb hier een Excel voorbeeld waar van het aktieve werkblad een bijlage wordt gemaakt en aan een mail wordt gehangen en verzonden.
In cel A1 moet de naam van de bijlage te staan. (die kan dus variaren per werkblad)
En in cel A2 moet het e-mail adres staan. geen hyperlink! (adres kan ook varieren)

Ik heb in het voorbeeld ook omschreven hoe je het moet gebruiken om het te laten werken.

Misschien heb je er iets aan.

Bij mij werkt het nu goed.

Koosl.

 

[__LAU__]

Bedankt

Hartstikke bedankt,

Ga dinsdag gelijk weer aan de slag. De vorige leek ook goed te werken, thuis vroeg hij om notes en op mijn stage starte hij notes op verder werkte hij niet. Helaas, waarschijnlijk heb ik zelf iets fout gedaan.

Deze lijkt voor mij een ideale manier om een sheet te mailen, ik laat wete hoe het gegaan is...

Nogmaals bedankt!

__LAU__

:thumb: :thumb: :thumb: