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
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: