VBA help for a Macro (inserting picture from file)

Gstg72 

To be honest, I asked where it is best to include such a VBA code.

Most of them say with Outlook, not Excel.

So I searched the internet and found this information.

Folder selection when sending With this VBA code, any e-mail folder can be selected as storage when sending an e-mail. To use this example, please note the important information and the workshop Using VBA in Outlook.

Please copy the 1st part of the code into a new module (insert -> module in the VBA editor):

Option Explicit
 
Public Function SentFolder (ByRef Item As Object) As Boolean
 
    '================================================== =====================
    '' Displays the Outlook® selection folder when sending an email
    'If required, e-mail to a folder other than "Sent Items"
    'to discard.
    '(c) http://www.outlook-stuff.com
    '2008-11-19 version 1.0.1
    '================================================= =====================

    Dim obj Folder As Object
 
    '------------------------------------------------- --------------------
    'Although the SaveSentMessageFolder-
    'property should also be possible for meeting requests
    'there is a mistake with these. Hence, prior to using this
    'Function asks whether the item is an email.
    '------------------------------------------------- --------------------
    If Not Item.Class = olMail Then Exit Function
 
    '------------------------------------------------- --------------------
    'The loop is run through until a valid folder is selected
    'or the selection is canceled.
    '------------------------------------------------- --------------------
    do
 
        '------------------------------------------------- ----------------
        'Show folder selection
        '------------------------------------------------- ----------------
        Set objFolder = Nothing
        Set objFolder = Outlook.Session.PickFolder
 
        '------------------------------------------------- ----------------
        'Has the selection been canceled?
        '------------------------------------------------- ----------------
        If objFolder Is Nothing Then
            SentFolder = True
            Exit function
        End If
 
        '------------------------------------------------- ----------------
        'Wrong folder type selected?
        '------------------------------------------------- ----------------
        If InStr (objFolder.DefaultMessageClass, "IPM.Note") = 0 Then
            Set objFolder = Nothing
            If MsgBox ("Please select a folder for emails." _
                , vbCritical + vbOKCancel, "Select shelf") = vbCancel Then
                SentFolder = True
                Exit function
            End If
        End If
 
        '------------------------------------------------- ----------------
        'The inbox is not suitable as a shelf
        '------------------------------------------------- ----------------
        If Not objFolder Is Nothing Then
            If objFolder = Outlook.Session.GetDefaultFolder (olFolderInbox) Then
                If MsgBox ("Are you sure you want to put the sent email in the inbox?" _
                    , vbExclamation + vbYesNo + vbDefaultButton2, "Select storage") = vbNo Then
                    Set objFolder = Nothing
                End If
            End If
        End If
 
    Loop While objFolder Is Nothing
 
    '------------------------------------------------- --------------------
    'Define the storage location of the email
    '------------------------------------------------- --------------------
    Set Item.SaveSentMessageFolder = objFolder
 
    '------------------------------------------------- --------------------
    'Delete reference to folder
    '------------------------------------------------- --------------------
    Set objFolder = Nothing
 
End function

'source: https://www.outlook-stuff.com/tipps-tricks/programmierung/287-ordnerauswahl-'beim-senden.html

The call is made from the Application_ItemSend event in the module ThisOutlookSession. Please copy the 2nd part of the code here:

Übersetzungstypen
Textübersetzung
Ausgangstext
908 / 5000
Übersetzungsergebnisse
Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean)
 
     '================================================= =====================
     'This procedure is recorded immediately before an email is sent.
     ' call. If "Cancel" is true, the sending of the e-mail is canceled.
     '(c) http://www.outlook-stuff.com
     '2008-11-19 version 1.0.1
     '================================================== =====================
       
     '------------------------------------------------- --------------------
     'Show folder selection for storing the sent mail
     '------------------------------------------------- --------------------
     Cancel = SentFolder (Item)
 
     '------------------------------------------------- --------------------
     'Delete reference to email
     '------------------------------------------------- --------------------
     Set Item = Nothing
 
End Sub

 At the beginning I would not have thought that it could be so difficult.

In retrospect, however, I understand watum it's so hard.

It's not about Excel, it's about Outlook.

It doesn't really matter whether I send an Excel file or another file as an e-mail.

-------------------

Supplement:

(Step by step)

Outlook, start the VBA editor successfully.

I add Code 1 via "Insert / Module". In the drop-down menus in the pop-up window, (“Selection”), (“Declarations”) remains.

The left is now under Project1 (VbaProject.OTM)

- Microsoft Outlook objects

- ThisOutlookSession

- modules

- Module 1

If I now double-click “ThisOutlookSession”, a window opens again, the drop-down menu says “Application” on the left and “ItemSend” on the right.

I copy code 2 into the free field.

I save everything (without renaming anything), go back to Outlook, restart Outlook.

When I write an email now, I get various error messages:

First runtime error for "AddinTools Classic Menu for Outlook".

Then the VBA editor opens again, module 1 is marked on the left and the pop-up window reads:

"Error during compilation, invalid outside of a procedure, module 1 marked".

If I click away, I quit the debugger.

Don't forget to reactivate the macros.

----------------------------------------------

I hope that you will get a little further with it.

Thank you for your understanding and patience

Nikolino

I know I don't know anything (Socrates)