Hogyan lehet beilleszteni az Outlook aláírását, amikor e-mailt küld az Excel programba?
Tegyük fel, hogy közvetlenül az Excelben szeretne e-mailt küldeni, hogyan adhatja hozzá az alapértelmezett Outlook-aláírást az e-mailhez? Ez a cikk két módszert kínál az Outlook-aláírás hozzáadásához, amikor e-maileket küld Excelben.
Helyezzen aláírást az Outlook e-mailbe, amikor Excel VBA-val küldi
Egy csodálatos eszközzel egyszerűen beillesztheti az Outlook aláírását, amikor e-mailt küld az Excel programba
További oktatóanyagok az Excel levelezéséhez ...
Helyezzen aláírást az Outlook e-mailbe, amikor Excel VBA-val küldi
Például egy munkalapon található az e-mail címek listája, amellyel e-maileket küldhet ezekre az Excel-címekre, és hozzáadhatja az alapértelmezett Outlook-aláírást az e-mailekhez. Ennek eléréséhez használja az alábbi VBA kódot.
1. Nyissa meg az e-mail címlistát tartalmazó munkalapot, amelyre e-mailt szeretne küldeni, majd nyomja meg a gombot más + F11 kulcsok.
2. A nyílásban Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modul, majd másolja az alábbiakat VBA 2 a Modul kód ablakába.
3. Most ki kell cserélnie a .Test vonalba VBA 2 a kóddal VBA 1. Ezt követően mozgassa a vonalat .Kijelző a vonal alatt Az xMailOut segítségével.
VBA 1: Sablon e-mailek küldéséhez az Outlook alapértelmezett aláírásával az Excelben
.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody
VBA 2: E-mail küldése az Excel celláiban megadott e-mail címekre
Sub SendEmailToAddressInCells()
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each xRgEach In xRg
xRgVal = xRgEach.Value
If xRgVal Like "?*@?*.?*" Then
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.To = xRgVal
.Subject = "Test"
.Body = "Dear " _
& vbNewLine & vbNewLine & _
"This is a test email " & _
"sending in Excel"
.Display
'.Send
End With
End If
Next
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
A következő képernyőkép segítségével könnyedén megtalálhatja a különbségeket a VBA kód megváltoztatása után.
4. megnyomni a F5 gombot a kód futtatásához. Aztán a Kutools az Excel számára megjelenik a jelölőnégyzet, válassza ki azokat az e-mail címeket, amelyekre e-maileket küldeni fog, majd kattintson a gombra OK.
Ezután létrejönnek az e-mailek. Láthatja, hogy az Outlook alapértelmezett aláírása hozzáadásra került az e-mail törzsének végére.
Tipp:
- 1. Megváltoztathatja az e-mail törzsét az 1. VBA kódban az Ön igényei szerint.
- 2. A kód futtatása után, ha megjelenik egy hiba párbeszédpanel, amely arra figyelmeztet, hogy a felhasználó által definiált típus nincs meghatározva, zárja be ezt a párbeszédpanelt, majd kattintson a Eszközök > Referenciák a Microsoft Visual Basic for Applications ablak. A megnyitón Referenciák - VBAProject ablakban ellenőrizze a Microsoft Outlook objektumkönyvtár doboz és kattintson OK. Ezután futtassa újra a kódot.
Egy csodálatos eszközzel egyszerűen beillesztheti az Outlook aláírását, amikor e-mailt küld az Excel programba
Ha Ön újonc a VBA-ban, itt nagyon ajánlja a Emaileket küld hasznossága Kutools az Excel számára neked. Ezzel a szolgáltatással könnyedén küldhet e-maileket az Excel bizonyos mezői alapján, és hozzáadhatja hozzájuk az Outlook aláírását. Kérjük, tegye a következőket.
Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.
Először is létre kell hoznia egy levelezési listát különböző mezőkkel, amelyek alapján e-maileket küld.
Kézzel létrehozhat levelezőlistát, ha szükséges, vagy alkalmazhatja a Levelezőlista létrehozása funkciót a gyors elvégzéséhez.
1. kettyenés Kutools Plus > Levelezőlista létrehozása.
2. Ban,-ben Levelezőlista létrehozása párbeszédpanelen adja meg a szükséges mezőket, válassza ki a lista kiadásának helyét, majd kattintson a gombra OK gombot.
3. Most létrehoz egy levelezőlista mintát. Mivel ez egy minta lista, a mezőket bizonyos szükséges tartalomra kell cserélnie. (több sor megengedett)
4. Ezt követően válassza ki a teljes listát (fejléceket is), kattintson a gombra Kutools Plus > Emaileket küld.
5. Ban,-ben Emaileket küld párbeszédablak:
- 5.1) A kiválasztott levelezőlistán szereplő tételek automatikusan a megfelelő mezőkbe kerülnek;
- 5.2) Fejezze be az e-mail törzsét;
- 5.3) Ellenőrizze mind a E-mail küldése az Outlook segítségével és a Használja az Outlook aláírási beállításait dobozok;
- 5.4) Kattintson a gombra Küldés gomb. Lásd a képernyőképet:
Most e-maileket küldünk. És az Outlook alapértelmezett aláírása hozzáadódik az e-mail törzséhez.
Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.
Kapcsolódó cikkek:
E-mail küldése az Excel celláiban megadott e-mail címekre
Tegyük fel, hogy van egy e-mail címlista, és e-mail címre szeretne tömegesen küldeni e-mail címeket közvetlenül az Excel programban. Hogyan lehet elérni? Ez a cikk bemutatja az e-mail küldésének módszereit az Excel celláiban megadott több e-mail címre.
E-mail küldése a megadott tartomány másolásával és beillesztésével az Excel e-mail törzsébe
Sok esetben az Excel munkalap meghatározott tartalomtartománya hasznos lehet az e-mail kommunikáció során. Ebben a cikkben bemutatjuk az e-mail küldésének módját meghatározott tartományú beillesztéssel az Excel törzsébe.
E-mail küldése az Excelhez csatolt több melléklettel
Ez a cikk arról szól, hogy e-mailt küldjön az Outlook alkalmazáson keresztül az Excelhez csatolt több melléklettel.
E-mail küldése, ha az esedékesség dátuma lejárt az Excelben
Például, ha a C oszlopban szereplő esedékesség legfeljebb 7 nap (a jelenlegi dátum 2017/9/13), akkor küldjön e-mailes emlékeztetőt az A oszlopban megadott címzettnek a B. oszlopban megadott tartalommal. elérni? Ez a cikk egy VBA-módszert ismertet a részletek kezelésére.
Automatikus e-mail küldése az Excel cellasejtjei alapján
Tegyük fel, hogy e-mailt szeretne küldeni az Outlook segítségével egy bizonyos címzettnek az Excel megadott cellája alapján. Például, ha a munkalap D7 cellájának értéke nagyobb, mint 200, akkor automatikusan létrejön egy e-mail. Ez a cikk egy VBA-módszert mutat be a probléma gyors megoldására.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!