Wanneer gebruikers e-mails versturen naar hun klanten of bazen is het vrij moeilijk om bij te houden. In dat geval komt Excel van pas. Daarom is "automatisch e-mail versturen van Excel naar Outlook" is een tijdbesparende aanpak gebleken. Excel VBA macro's en de HYPERLINK functie kan automatische e-mails versturen of een concept maken met behulp van Excel-items.

Laten we zeggen dat we Werknemer Geherstructureerd salaris gegevens in Excel en we willen automatisch een e-mail sturen met behulp van Outlook .

In dit artikel demonstreren wij meerdere varianten van VBA-macro's en de HYPERLINK functie om automatisch e-mail te versturen van Excel naar Outlook .

Excel-werkboek downloaden

⧭ Microsoft Visual Basic openen en code invoegen in module

Alvorens over te gaan tot het demonstreren van methoden, is het noodzakelijk te weten hoe een Module in de Microsoft Visual Basic in Excel.

🔄 Microsoft Visual Basic openen: Er zijn voornamelijk 3 manieren om te openen Microsoft Visual Basic raam.

1. Toetsenbordsnelkoppelingen gebruiken: Druk op ALT+F11 helemaal te openen Microsoft Visual Basic raam.

2. Met het tabblad Ontwikkelaar: Ga in een Excel-werkblad naar Tabblad Ontwikkelaar > Selecteer Visual Basic . de Microsoft Visual Basic venster verschijnt.

3. Gebruik het tabblad Werkblad: Ga naar een willekeurig werkblad, Rechts klikken erop> Kies Code bekijken (van de Context Menu ).

Een module invoegen in Microsoft Visual Basic: Er zijn 2 manieren om een Module in Microsoft Visual Basic raam,

1. Opties van het blad gebruiken: Na het openen van de Microsoft Visual Basic venster, selecteer een Werkblad > Rechts klikken erop> Selecteer Plaats (van de Contextmenu )> kies dan Module .

2. Toolbar gebruiken: U kunt het ook doen door Plaats (van de Werkbalk )> dan kiezen Module .

4 eenvoudige manieren om automatisch e-mails te versturen van Excel naar Outlook

Methode 1: VBA-macro gebruiken om automatisch e-mails te verzenden met Outlook naar geselecteerde ontvangers

We willen een Macro-uitvoering maken Knop waarmee we eenvoudig met één klik mail kunnen sturen naar geselecteerde ontvangers.

Stap 1: Ga naar de Plaats tab> Vormen > Selecteer een van de aangeboden vormen (bijv, Rechthoekig: Afgeronde hoeken ).

Stap 2: Sleep de Plus Pictogram waar u de Vorm zoals in onderstaande afbeelding.

Stap 3: Kies een voorkeur Vorm Vullen en Schets Kleur klik er dan met de rechtermuisknop op. Klik op Bewerk tekst om tekst in te voegen.

Stap 4: Gebruik de instructie om te openen Microsoft Visual Basic en voeg Module Plak de volgende Macro in de Module .

 Sub ExcelToOutlookSR() Dim mApp Als Object Dim mMail Als Object Dim SendToMail Als String Dim MailSubject Als String Dim mMailBody Als String Voor Elke r In Selectie SendToMail = Range("C" & r.Row) MailSubject = Range("F" & r.Row) mMailBody = Range("G" & r.Row) Set mApp = CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) With mMail .To = SendToMail .Subject = MailSubject.Body = mMailBody .Display ' U kunt .Send gebruiken End With Next r End Sub 

➤ in de code,

1 - start de macroprocedure door de variabelen te declareren als Object en String .

2 - een VBA VOOR lus voor elke rij in de selectie om Email's Stuur naar , Onderwerp en Lichaam met behulp van rijgegevens.

3 - variabelen toewijzen.

4 - voer de VBA met verklaring om Outlook items zoals Stuur naar , Mail Onderwerp enz. Hier voert de macro alleen de Display commando om Outlook met een e-mail ontwerp. Echter, als Stuur commando wordt gebruikt in plaats van of na Display, Outlook verstuurt de aangemaakte e-mail naar de geselecteerde ontvangers.

5 - eindig de VBA VOOR lus.

Stap 5: Keer terug naar het werkblad. Rechtsklik op de Vorm kies dan Macro toewijzen van de Contextmenu opties.

Stap 6: Selecteer de Macro (bijv, ExcelToOutlookSR ) onder de Macro naam en kies de Macro in optie als Dit werkboek Klik op OK .

Stap 7: Selecteer nu in het werkblad één of meerdere werknemers en klik vervolgens op de knop Vorm knop .

Stap 8: Excel-aanwijzingen Outlook om te lunchen en maakt of verzendt e-mails naar de geselecteerde werknemers. Als u twee van de werknemers selecteert, Outlook genereert twee verschillende e-mailontwerpen die klaar zijn om te worden verzonden.

Aangezien de macro alleen de Display commando, Outlook geeft alleen het e-mailontwerp weer zonder het te verzenden. Gebruik de optie Stuur commando om automatisch e-mails te versturen van Excel naar Outlook met behulp van celgegevens.

Lees meer: Excel Macro om automatisch e-mails te versturen (3 geschikte voorbeelden)

Methode 2: E-mail automatisch versturen van Excel naar Outlook, afhankelijk van specifieke celwaarde

Wat als we automatisch een e-mail willen sturen na het bereiken van doelen van Excel naar Outlook Een Macro code kan dit werk met gemak doen.

Stel, we hebben Driemaandelijkse verkoopgegevens zoals hieronder afgebeeld, na het bereiken van een doel (d.w.z, Verkoop> 2000 ) zal automatisch Outlook om een e-mail te sturen vanuit Excel naar een toegewezen e-mail id.

Stap 1: Typ de volgende macrocode in een willekeurige Module .

 Option Explicit Dim Rng As Range Sub Worksheet_Change(ByVal mRng As Range) On Error Resume Next If mRng.Cells.Count> 1 Then Exit Sub Set Rng = Intersect(Range("F17"), mRng) If Rng Is Nothing Then Exit Sub If IsNumeric(mRng.Value) And Target.Value> 2000 Then Call ExcelToOutlook End If End If Sub Sub ExcelToOutlook() Dim mApp As Object Dim mMail As Object Dim mMailBody As String Set mApp =CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) mMailBody = "Greetings Sir" & vbNewLine & _ "Our outlet has quarterly Sales more than the target." & vbNewLine & _ "It's a confirmation mail." & vbNewLine & _ "Regards" & vbNewLine & _ "Outlet Team" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Notification on Achieving Sales Target" .Body = mMailBody .Display 'of u kunt .Send gebruiken End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ Van bovenstaande afbeelding, in de secties,

1 - een cel toewijzen (d.w.z, F17 ) binnen een bereik om de VBA IF verklaring. Als de verklaring resulteert in Echt roept de macro een andere macro op voor uitvoering.

2 - verklaren variabele types en toewijzen om ze te vullen Outlook de inzendingen.

3 - doen VBA met statement om variabelen toe te wijzen aan e-mail entries. Gebruik de Stuur commando in plaats van Display als u rechtstreeks e-mails wilt verzenden zonder ze te controleren. Het e-mailadres van de ontvanger wordt in de macro ingevoegd. Gebruik alternatieve methoden als u een automatische invoeging van het e-mailadres van de ontvanger wilt.

4 - bepaalde variabelen niet meer toe te wijzen.

Stap 2: Gebruik de F5 toets om de macro uit te voeren. In een ogenblik haalt Excel Outlook met een ontwerp e-mail automatisch gemaakt zoals in de volgende. U kunt klikken op Stuur of automatisch verzenden met behulp van Stuur commando in de macro.

Lees meer: Automatisch e-mails versturen vanuit Excel op basis van celinhoud (2 methoden)

Vergelijkbare lezingen

• Hoe te zien wie er in een gedeeld Excel-bestand staat (met snelle stappen)
• Werkmap delen in Excel inschakelen
• Hoe Excel-bestanden delen voor meerdere gebruikers
• Hoe Macro toepassen om e-mail te versturen vanuit Excel met bijlage

Methode 3: VBA-macro gebruiken om e-mail te verzenden met actief werkblad vanuit Excel door Outlook

Anderzijds kunnen er gevallen zijn waarin we een volledige Actief blad naar een toegewezen e-mailadres. In dat geval kunnen we een VBA aangepaste functie aan te roepen binnen een macro.

Stap 1: Plaats de onderstaande macro in de Module .

 Functie ExcelOutlook(mTo, mSub Als String, Optioneel mCC Als String, Optioneel mBd Als String) Als Boolean On Error Resume Next Dim mApp Als Object Dim rItem Als Object Set mApp = CreateObject("Outlook.Application") Set rItem = mApp.CreateItem(0) With rItem .To = mTo .CC = "" .Subject = mSub .Body = mBd .Attachments.Add ActiveWorkbook.FullName .Display 'of u kunt .Send gebruiken End With Set rItem = NothingSet mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" mSub = "Quarterly Sales Data" mBd = "Greetings Sir" & vbNewLine & vbNewLine & _ "Kindly find Outlet's Quarterly Sales data attached with this mail." & vbNewLine & _ "It's a notification mail." & vbNewLine & _ "Regards" &vbNewLine & _ "Outlet Team" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Successfully created the Mail draft or Sent" End If End Sub 

➤ Van de bovenstaande afbeelding, de secties van de code,

1 - de variabelen verklaren en instellen.

2 - wijs de commando's toe met behulp van de VBA met verklaring. Gebruik de Display of Stuur commando om respectievelijk e-mails te bekijken of rechtstreeks te verzenden.

3 - de eerder ingestelde variabelen wissen.

4 - de VBA met commando's met teksten.

5 - voer de VBA aangepaste functie .

Stap 2: Om de macro uit te voeren drukt u op F5 en onmiddellijk brengt Excel de Outlook met een ontwerp-e-mail om na te kijken zoals in de onderstaande afbeelding. Daarna kunt u hem versturen.

Lees meer: Hoe Bulkmail verzenden vanuit Outlook met behulp van Excel (3 manieren)

Methode 4: Automatisch e-mails versturen van Excel naar Outlook met de functie HYPERLINK

De HYPERLINK functie genereert een klikbare link in Excel-cellen om Outlook als medium om automatische e-mails te versturen vanuit Excel.

Stap 1: Typ de volgende formule in cel H5 .

De HYPERLINK functie neemt "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G". 5 als link_locatie en "Klik hier" als vriendelijke_naam .

Stap 2: Hit ENTER om de link te plakken. Klik dan op de link.

Stap 3: Excel neemt u mee naar Outlook En je ziet alle Outlook De gegevens zijn gevuld met toegewezen gegevens uit Excel. Klik op Stuur .

Stap 4: Sleep de Vulgreep om de formule op andere cellen toe te passen.

Lees meer: Hoe in Excel automatisch een e-mail te versturen wanneer aan een voorwaarde is voldaan

Conclusie

VBA Macro-varianten en HYPERLINK functie kan nuttig zijn bij het verzenden van automatische e-mails van Excel naar Outlook. Hopelijk vindt u uw voorkeursmethode binnen de hierboven beschreven methoden. Reageer als u verdere vragen heeft of iets toe te voegen heeft.