Macro voor opslaan als bestand op een andere computer en verzenden met Lotus Notus

[RobDuits1984]

Goedenavond,

Ben al een paar weken aan het stoeien met het volgende. Ik heb een .xlsm-bestand, welke de volgende functionaliteit moet gaan krijgen:

In een cel dient de gebruiker aan te geven in welke directory / map het bestand moet worden opgeslaan (B6) op zijn/haar computer.

In een ander cel (B10) staat de naam welke het bestand moet krijgen.

Op basis van deze gegevens dient het bestand te worden opgeslagen als .pdf

Het origineel moet bewaard blijven als .xlsm-bestand

Vervolgens moet het .pdf-bestand via de applicatie Lotus Notes verzonden worden naar twee vaste emailadressen (B12 en B13).

Dit alles bij elkaar groeit mij enigszins boven het hoofd. Ben enigszins bekend met VBA, maar elke keer gaat er iets fout waardoor het uiteindelijk niet werkt.
Heeft iemand dit wel eens geprobeerd en is dat ook gelukt?

Ik hoor het graag.

 

[gober]

hierbij een voorbeeld voor opslaan als PDF file. Verzenden via lotus notes weet ik ook niet hoe dat gaat.
Directory staat in cel (T2) bestaat dit pad niet dan wordt die aangemaakt.
naam cel staat in cel (G4) en cel (A10)
dit alles als voorbeeld

Sub pdf()
On Error GoTo getout
Application.ScreenUpdating = False

    Dim sPad As String
    Dim Pad() As String
    Dim i As Integer
    
    sPad = Range("T2").Value & "\"
    If sPad = "\" Then
    
    MsgBox ("Er is geen direcory pad aangegeven in de cel 'T2'")
    Exit Sub
    End If
     
 
    
    Pad = Split(sPad, "\")
    sPad = Pad(0)
    For i = 1 To UBound(Pad)
        sPad = sPad & "\" & Pad(i)
        If Dir(sPad, vbDirectory) = "" Then
            MkDir sPad
            MsgBox ("Er is een nieuwe directory aangemaakt")
        End If
    Next i
    If Dir(sPad) <> "\" Then
        'MsgBox "De directory bestaat!"
    Else
    MsgBox "De directory kan niet aangemaakt worden of bestaat niet!"
    Exit Sub
    End If
 
Range("A1:G45").Select
    
    
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPad & Range("G4").Value & "_" & Range("A10").Value & ".pdf"


'MsgBox "uw document is opgeslagen als PDF file ", vbInformation

Range("A18").Select
Application.ScreenUpdating = True
Exit Sub
getout:
 MsgBox ("Er is een fout opgetreden. Is het bestandenpad in de cel 'T2' wel juist?")
End Sub

 

[RobDuits1984]

Thanks Gober!
Is al weer een stapje verder. Heeft iemand anders nog een suggestie m.b.t. het verzenden van het aangemaakte .pdf per email, via Lotus Notes?