VBA sending emails

[Pinaceous]

Hi All,

I want to send an email through vba in using an Outlook template.

The code that I have references a drive pathway:

    Dim FileExtStr As String

    Dim FileFormatNum As Long

    Dim Sourcewb As Workbook

    Dim Destwb As Workbook

    Dim TempFilePath As String

    Dim TempFileName As String

    Dim OutApp As Object

    Dim OutMail As Object

    Dim varMyAttachment As Variant


    Set OutApp = CreateObject("Outlook.Application")

    Set OutMail = OutApp.CreateItemFromTemplate("C:\Folder1\Folder2\Folder3\Folder4\Folder5\Folder6\Titled.msg")   'Change path to object.
                   
 'getParentFolder(ThisWorkbook.Path) & "\" & Worksheets(1).Range("A39").Text 
   
    With OutMail

        '.To = ""

        '.CC = ""

        '.BCC = ""
        
    '.Subject = ""

I would like to provide Set OutMail to Thisworkbook.Path as referenced as in the following proposed example.

For example;

 Set OutMail = OutApp.CreateItemFromTemplate(getParentFolder(ThisWorkbook.Path) & "\" & Worksheets(1).Range("A39").Text")   'Change path to object.

Can someone help me?

Thank you!
pinaceous

 

[sijpie]

So where is your problem, you seem to have everything there.

DO you need a GetParentFolder function?

Function getParentFolder(ByVal strFolder As String)
  Dim strSlash As String
  
  If strFolder Like "*\*" Then
    strSlash = "\"
  Else
    strSlash = "/"
  End If
  
  getParentFolder = Left(strFolder, InStrRev(strFolder, strSlash) - 1)
End Function