Note: The other languages of the website are Google-translated. Back to English

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 szeretnél egy ingyenes próbaidőszakot (30-nap) ebből a segédprogrambó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.

További oktatóanyagok az Excel levelezéséhez ...


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (27)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
nagyon köszönöm, ezzel a sablonnal megmented az életemet :D
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Favio!
Örülök, hogy segíthettem.
A weboldal moderátora ezt a megjegyzést minimalizálta
nem működik mellékletekkel az Office 2016-ban
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Chris!
Az alábbi VBA kód segíthet. A kód futtatása után válassza ki azokat az e-mail címeket tartalmazó cellákat, amelyekre az e-maileket küldeni fogja, majd válassza ki azokat a fájlokat, amelyeket csatolni kell az e-mailhez mellékletként, amikor a második párbeszédpanel megjelenik. És az alapértelmezett Outlook aláírás is megjelenik az e-mail törzsében. Köszönjük észrevételét.

Sub SendEmailToAddressInCells()
Dim xrg mint tartomány
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp mint Outlook.Application
Dim xMailOut mint Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Kérjük, válassza ki az e-mail címtartományt", "KuTools For Excel", xAddress, , , , , 8)
Ha az xRg semmi, akkor lépjen ki a Subból
Application.ScreenUpdating = Hamis
Set xOutApp = CreateObject("Outlook.Application")
xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues) beállítása
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
Ha xFileDlg.Show = -1 Akkor
Minden xRgEach In xRg
xRgVal = xRgEach.Value
Ha xRgVal Like "?*@?*.?*" Akkor
Állítsa be az xMailOut = xOutApp.CreateItem(olMailItem)
Az xMailOut segítségével
.Kijelző
.To = xRgVal
.Subject = "Teszt"
.HTMLBody = "Ez egy teszt e-mail küldése Excelben" & "
" & .HTMLBody
Minden xFileDlgItem esetén az xFileDlg.SelectedItems fájlban
.Attachments.Add xFileDlgItem
Következő xFileDlgItem
'.Küld
Vége
Ha véget
Következő
Set xMailOut = Semmi
Állítsa be az xOutApp = Semmit
Application.ScreenUpdating = Igaz
Ha véget
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Megpróbálom hozzáadni az "alapértelmezett" nevű outlook aláírást, de nem úgy tűnik, hogy működik.
kérlek segíts? Úgy gondolom, hogy az "xMailout" logikám hibás. ez a feltételezett hibás területem.

Privát Sub CommandButton1_Click ()

Dim xOutApp mint objektum
Dim xOutMail mint objektum
Dim xMailBody As String
Dim xMailOut mint Outlook.MailItem
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Állítsa be az xOutMail = xOutApp.CreateItem(0)
xMailBody = "Üdvözlet:" & vbNewLine & vbNewLine & _
"Ez az 1. sor" & vbNewLine & _
"Ez az 2. sor" & vbNewLine & _
"Ez az 3. sor" & vbNewLine & _
"Ez a 4. sor"
On Error Resume Next
Az xOutMail segítségével
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "E-mail cím itt - " & Range("Cell#").érték
.Body = xMailBody
. Attachments.Add ActiveWorkbook.FullName
Állítsa be az xMailOut = xOutApp.CreateItem(olMailItem)
Az xMailOut segítségével
.Kijelző
Vége
ActiveWorkbook.Save
Hiba történt GoTo 0
Állítsa be az xOutMail = Semmit
Állítsa be az xOutApp = Semmit
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Jó napot,
A szkripted módosult, próbáld meg. Köszönöm.

Privát Sub CommandButton1_Click ()
Dim xOutApp mint objektum
Dim xOutMail mint objektum
Dim xMailBody As String
Dim xMailOut mint Outlook.MailItem
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Állítsa be az xOutMail = xOutApp.CreateItem(0)
xMailBody = "Üdvözlet:" & vbNewLine & vbNewLine & _
"Ez az 1. sor" & vbNewLine & _
"Ez az 2. sor" & vbNewLine & _
"Ez az 3. sor" & vbNewLine & _
"Ez a 4. sor"
On Error Resume Next
Az xOutMail segítségével
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "E-mail cím itt - " & Range("Cell#").Érték
.Body = xMailBody
.Attachments.Add ActiveWorkbook.FullName
Állítsa be az xMailOut = xOutApp.CreateItem(olMailItem)
Az xMailOut segítségével
.Kijelző
Vége
Vége
ActiveWorkbook.Save
Hiba történt GoTo 0
Állítsa be az xOutMail = Semmit
Állítsa be az xOutApp = Semmit
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
aláírás hozzáadása, ha a makrót több felhasználó használja.
mert pl az én makrómat 3 másik személy is futtatni fogja. Tehát hogyan használhatja a makró a makrót futtató felhasználó aláírását.
thanks in advance
A weboldal moderátora ezt a megjegyzést minimalizálta
Good Day,
A VBA-kód automatikusan felismeri az alapértelmezett aláírást a feladó Outlookjában, és saját aláírásával küld e-mailt az Outlookon keresztül.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ha a törzsszövegem az Excel-mezőkből való lehíváshoz kapcsolódik, a karakterlánc végén található & .HTMLBody használata törli az összes törzsszöveget, és csak az aláírást hagyja meg.
A weboldal moderátora ezt a megjegyzést minimalizálta
Problémáim vannak az Excel 2016-os futtatásával. „Fordítási hiba: Felhasználó által megadott típus nincs megadva” üzenetet kapok. Kérem, segítsen!
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyszerű!!!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen ...
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok, segítségre lenne szükségem a makrómmal kapcsolatban, be kell szúrnom az Outlook aláírást a táblázat alá, tudnátok ebben segíteni?

Privát Sub CommandButton1_Click ()


Dim outlook mint tárgy
Dim newEmail As Object
Dim xInspect mint objektum
Dim page Editor as Object

Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)

Új e-maillel
.To = Sheet5.Range("F1")
.CC = ""
.BCC = ""
.Subject = Sheet5.Range("B5")
.Body = Sheet5.Range("B41")
.kijelző

Állítsa be: xInspect = newEmail.GetInspector
A pageEditor = xInspect.WordEditor beállítása

Sheet5.Range("B6:I7").Másolás

pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)

.kijelző
Set pageEditor = Semmi
Állítsa be az xInspect = Semmit
Vége

Set newEmail = Semmi
Kitekintés beállítása = Semmi

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Bara,
Sajnos ebben nem tudok segíteni. Köszönöm a hozzászólásod.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves,
Tudna valaki segíteni a VBA-mban?
Szükségem van az aláírásra a létrehozott e-mailben:
A weboldal moderátora ezt a megjegyzést minimalizálta
Hála neked, most már hozzáadhatok aláírást, de akkor eltávolítja a szóközt a szöveg bekezdései között. Kérem, tud segíteni?


Sub helloworld()
Dim OutApp mint objektum
Dim OutMail As Object
Dim cell As Range
Dim Path As String
Path = Application.ActiveWorkbook.Path
Set OutApp = CreateObject("Outlook.Application")

A tartomány minden cellájához ("C4:C6")
OutMail beállítása = OutApp.CreateItem(0)
OutMail segítségével
.Kijelző
.To = cella.Érték
.Tárgy = Cellák(cella.Sor, "D").Érték
.HTMLBody = "Kedves " & Cells(cell.Row, "B").Value & "," _
& vbNewLine & vbNewLine & _
"Melegszívű üdvözlet" _
& vbNewLine & vbNewLine & _
"Mi, a tengerentúli JK, szeretnénk megragadni az alkalmat, és bemutatni a JK Overseas cégünket, amely az elmúlt 3 éve foglalkozik só üzletággal. Jelenleg erősek vagyunk a hazai piacon és terjeszkedünk a tengerentúlon. Mi vagyunk az étkezési só beszállítója, Vízlágyító só, jégoldó só, ipari só" és "." _
& vbNewLine & vbNewLine & _
"Kapcsolatban állunk nagyméretű indiai gyártókkal, és minőségi sót és exportot szerezünk be tőlük. Tehát megbízható szakértő importőrt és forgalmazót keresünk, hogy hosszú távú, kölcsönös előnyökkel járó üzletet kössünk" & " ." _
& vbNewLine & vbNewLine & _
"Kérjük, forduljon hozzánk igényével vagy bármilyen egyéb kérdésével kapcsolatban. Megbízható logisztikát és pontos szállítást biztosítunk. Biztosak vagyunk benne, hogy a legversenyképesebb áraink megfelelnek az Ön elvárásainak" & "." _
& vbNewLine & vbNewLine & _
.HTMLBody

'.Küld
Vége
Következő cella
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Megpróbálom integrálni ezt a kódot a jelenleg meglévő formátumba, amellyel az e-maileket beállított értéktartomány alapján automatizálhatom az Excelben. Nagyon hálásak lennék, ha bármilyen segítséget kapnának azzal kapcsolatban, hogy hol kell hozzáadni az „aláírási” kódot a jelenleg birtokomhoz.

Nyilvános Sub CheckAndMail()

'Frissítette Extendoffice 2018 / 11 / 22

Dim xRgDate As Range

Dim xRgSend As Range

Dim xRgText As Range

Dim xRgDone As Range

Dim xOutApp mint objektum

Dim xMailItem mint objektum

Dim xLastRow As Long

Dim vbCrLf As String

Dim xMailBody As String

Dim xRgDateVal As String

Dim xRgSendVal As String

Dim xMailSubject As String

Dim I As Long

On Error Resume Next

„Kérjük, adja meg a határidőt

xStrRang = "D2:D110"

xRgDate = Tartomány (xStrRang) beállítása

„Kérjük, adja meg a címzettek e-mail címének tartományát

xStrRang = "C2:C110"

xRgSend = Tartomány (xStrRang) beállítása

xStrRang = "A2:A110"

xRgName = Tartomány (xStrRang) beállítása

„Adja meg a tartományt az emlékeztető tartalommal az e-mailben

xStrRang = "Z2:Z110"

xRgText = Tartomány (xStrRang) beállítása

xLastRow = xRgDate.Rows.Count

xRgDate = xRgDate(1) beállítása

xRgSend = xRgSend(1) beállítása

xRgName = xRgName(1) beállítása

xRgText = xRgText(1) beállítása

Set xOutApp = CreateObject("Outlook.Application")

Ha I = 1 - xLastRow

xRgDateVal = ""

xRgDateVal = xRgDate.Offset(I - 1).Érték

Ha xRgDateVal <> "" Akkor

Ha CDate(xRgDateVal) - Dátum <= 30 És CDate(xRgDateVal) - Dátum > 0 Akkor

xRgSendVal = xRgSend.Offset(I - 1).Érték

xMailSubject = " JBC szolgáltatási szerződés lejárati dátuma: " & xRgDateVal

vbCrLf = "

"

xMailBody = ""

xMailBody = xMailBody & "Kedves " & xRgName.Offset(I - 1).Value & vbCrLf

xMailBody = xMailBody & " " & xRgText.Offset(I - 1).Value & vbCrLf

xMailBody = xMailBody & ""

Állítsa be az xMailItem = xOutApp.CreateItem(0)

Az xMailItem segítségével

.Subject = xMailSubject

.To = xRgSendVal

.CC = "mailcc@justbettercare.com"

.HTMLBody = xMailBody

.Kijelző

'.Küld

Vége

Set xMailItem = Semmi

Ha véget

Ha véget

Következő

Állítsa be az xOutApp = Semmit

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon hasznos kód
Módosítanom kell a szövegformátumot jobbról balra Az xOutMsg sorban
segítsen kérem .
A weboldal moderátora ezt a megjegyzést minimalizálta
Megpróbálok külön lapokat küldeni az Excelből különböző e-mailekre, de csak magát a munkafüzetet fogja csatolni. Ezenkívül hozzá kell tudnom adni az aláírási soromat. Segítség?Sub AST_Email_From_Excel()

Dim emailApplication As Object
Halvány emailelem objektumként

Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

' Most megépítjük az e-mailt.

emailItem.to = Tartomány("e2").Érték

emailItem.CC = Tartomány("g2").Érték

emailItem.Subject = "Vissza nem adott technikai felszerelés"

emailItem.Body = "Tekintse meg a csatolt táblázatot a körzetében lévő vissza nem küldött termékekről"

„Az aktuális munkafüzet csatolása
emailItem.Attachments.Add ActiveWorkbook.FullName

Csatoljon bármilyen fájlt a számítógépéről.
'emailItem.Attachments.Add ("C:\...)"

'Küldje el az e-mailt
'emailItem.send

„Jelenítse meg az e-mailt, hogy a felhasználó igény szerint módosíthassa azt elküldés előtt
emailItem.Display

Set emailItem = Semmi
Set emailApplication = Semmi

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Chris! Az Ön által megadott kód módosult. Az Outlook aláírása most beilleszthető az üzenet törzsébe. Kérjük, próbálja ki. Köszönöm. Sub AST_Email_From_Excel()
'Frissítette Extendoffice 20220211
Dim emailApplication As Object
Halvány emailelem objektumként
Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

' Most megépítjük az e-mailt.
emailItem.Display 'Megjeleníti az e-mailt, hogy a felhasználó igény szerint módosíthassa azt elküldés előtt
emailItem.to = Tartomány("e2").Érték
emailItem.CC = Tartomány("g2").Érték
emailItem.Subject = "Vissza nem adott technikai felszerelés"
emailItem.HTMLBody = "Tekintse meg a csatolt táblázatot a körzetében lévő vissza nem adott tételekről" & " " & emailItem.HTMLBody

„Az aktuális munkafüzet csatolása
emailItem.Attachments.Add ActiveWorkbook.FullName

Set emailItem = Semmi
Set emailApplication = Semmi

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Crystal! Köszönjük, hogy rávette az aláírást, de úgy tűnik, hogy nem szereti a HTMLBody részt.Amikor futtatom a makrót, hibakeres az emailItem.HTMLBody = "Tekintse meg a mellékelt táblázatot a körzetében vissza nem adott tételekről" & " " & emailItem.HTMLBodyand nem fejezi be a többit.  
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Melyik Excel verziót használod? A következő VBA-kód is segíthet. Kérjük, próbálja ki. Köszönjük a visszajelzést. Sub SendWorkSheet()
'Frissítés Extendoffice 20220218
Dim xFile As String
Dim xFormat As Long
Dim Wb munkafüzetként
Dim Wb2 munkafüzetként
Dim FilePath As String
Dim FileName As String
Dim OutlookApp mint objektum
Az OutlookMail halványítása objektumként
On Error Resume Next
Application.ScreenUpdating = Hamis
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Válassza a Case Wb.FileFormat lehetőséget
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
Ha Wb2.HasVBProject Akkor
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Más
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Ha véget
Excel8 eset:
xFile = ".xls"
xFormat = Excel8
xlExcel12 eset:
xFile = ".xlsb"
xFormat = xlExcel12
Vége kiválasztása
FilePath = Environ$("temp") & "\"
Fájlnév = Wb.Name & Format (most, "nn-hh-éé h-mm-ss")
Állítsa be az OutlookApp = CreateObject("Outlook.Application")
Állítsa be az OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
'xstr = Tartomány("e2") & " ; " & Tartomány("g2")
OutlookMail-lel
.Kijelző
.To = Tartomány("e2")
.CC = Tartomány("g2")
.BCC = ""
.Subject = "Vissza nem adott műszaki felszerelés"
.HTMLBody = "Tekintse meg a mellékelt táblázatot a körzetében lévő vissza nem adott tételekről" & " " & .HTMLBody
.Attachments.Add Wb2.FullName
'.Küld
Vége
Wb2.Bezárás
Öld meg a FilePath & FileName & xFile fájlt
Állítsa be az OutlookMail = Semmit
Állítsa be az OutlookApp = Semmit
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Úgy tűnik, hogy Excel 2016 és VBA 7.1
A weboldal moderátora ezt a megjegyzést minimalizálta
Oi Cristal, egy minimális makró, amely e-mailben konfigurálható, com képek és eredeti formátum. Como consigo megoldó?

Sub Geraremail()

Dim OLapp mint Outlook.Application
Dim janela Outlook.MailItem néven

Állítsa be: OLapp = Új Outlook.Alkalmazás
Set janela = OLapp.CreateItem(olMailItem)

Arquivo01 = "AN térkép"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


Janelával
ActiveWorkbook.Save
.Kijelző
.To = Lapok("Alap").Tartomány("A2").Érték
.CC = Sheets("Base").Tartomány("A5").Érték
.Subject = "Térkép - Acrilo " & Formátum(Dátum, "nn.hh.yy")
assinatura = .Test
.Body = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila regardando as vendas previstas no S&OP." & Chr(10) & Chr(10) & assinatura
.Attachments.Add Anexo01
Vége

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Com a mudança abaixo, consegui ajustar. Porém a letra do corpo da mensagem fica em Times New Roman. Gostaria de usar Calibri, como posso alterar o código?

Sub Geraremail()

Dim OLapp mint Outlook.Application
Dim janela Outlook.MailItem néven

Állítsa be: OLapp = Új Outlook.Alkalmazás
Set janela = OLapp.CreateItem(olMailItem)

Arquivo01 = "AN térkép"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


Janelával
ActiveWorkbook.Save
.Kijelző
.To = Lapok("Alap").Tartomány("A2").Érték
.CC = Sheets("Base").Tartomány("A5").Érték
.Subject = "Térkép - Acrilo " & Formátum(Dátum, "nn.hh.yy")
assinatura = .Test
.HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila regardando as vendas previstas no S&OP." & " " & .HTMLBody
.Attachments.Add Anexo01
Vége

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Milla
A következő VBA-kód segíthet megváltoztatni az e-mail törzsének betűtípusát Calibri-ra, kérjük, próbálja ki. Köszönöm.
A kód futtatása előtt rá kell kattintani Eszközök > Referencia a Microsoft Visual Basic for Applications ablakot, majd ellenőrizze a Microsoft Word objektumkönyvtár jelölőnégyzet a Referenciák - VBAProject párbeszédpanelen, mint az alábbi képernyőképen.
[img]I:\工作\周雪明\2022年工作\6月份\文章评论截图\3.png[/img]
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Milla
A következő VBA-kód segíthet megváltoztatni az e-mail törzsének betűtípusát Calibri-ra, kérjük, próbálja ki. Köszönöm.
A kód futtatása előtt rá kell kattintani Eszközök > Referencia a Microsoft Visual Basic for Applications ablakot, majd ellenőrizze a Microsoft Word objektumkönyvtár jelölőnégyzet a Referenciák - VBAProject párbeszédpanelen, mint az alább látható csatolt fájl.
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi