• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel document opslaan (autonummering) en link naar de file in email zetten

  • Onderwerp starter Onderwerp starter bakk
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

bakk

Gebruiker
Lid geworden
7 jan 2008
Berichten
11
Ik probeer om via een 'button' Excel bestanden via een macro te verzenden met de e-mail. Helaas krijg ik het niet voor elkaar om via een macro het opgeslagen file als bijlage mee te versturen. Dit ligt vooral aan Lotus Notes en de vervelende instellingen hier op werk.

Maar misschien werkt deze manier:
Het bestand wordt opgeslagen (het liefst met autonummering)
Een email bericht wordt opgesteld met naam/onderwerp
Er wordt een link in de body gezet, welke verwijst naar het net opgeslagen document.

Iemand die me met deze macro kan helpen? Ik ben druk aan het zoeken geweest op internet, maar kan helaas niets vinden wat op mijn vraag aansluit.

Alvast bedankt!


Edit: met het volgende stukje VBA script kan de e-mail opgesteld worden:


Sub SendWithLotus()

Dim sURLto As String

Dim sAddress As String
Dim sSubject As String
Dim sBody As String



ActiveWorkbook.SaveAs Filename:="C:\Myfile.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False


sAddress = "mail@mail.com"
sSubject = "Titel van de email"

sBody = "Bodytekst"

sURLto = "mailto:" & sAddress & "?subject=" & sSubject & "?body=" & sBody
ActiveWorkbook.FollowHyperlink Address:=sURLto


End Sub
 
Laatst bewerkt:
In een eerder topic is dit ook aan de orde geweest. Misschien moet je eens zoeken op Helpmij?

p.s. mij is het zelf ook niet gelukt!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan