Re: EXCEL - הילף אין עקסעל
פרוביר דעיס אנשטאט .sendפערלמוטער האט געשריבן: ↑ דינסטאג סעפטעמבער 24, 2024 3:21 pmשוין פרבירט,ערעב איד האט געשריבן: ↑ דינסטאג סעפטעמבער 24, 2024 1:57 pmס׳שיקט פון די דיפאלט אקאונט.פערלמוטער האט געשריבן: ↑ דינסטאג סעפטעמבער 24, 2024 1:23 pmכוויל שיקן אימעלס דורך VBA כבין אריינגעלגט אין OUTLOOK מיט אן עקסטשענדזש אקאונט און א GMAIL, די קאוד האב איך געטראפן אנליין, כוויל וויסן וויאזוי צו סעטן ס'זאל גיין דורך די GMAIL,קאוד: וועל אויס אלע
Sub Email() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next ' Change the mail address and subject in the macro before you run it. With OutMail .to = "" .to = "" .CC = "" .BCC = "" .Subject = "" .Body = "" .Attachments.Add ' You can add other files by uncommenting the following line. '.Attachments.Add ("C:\test.txt") ' In place of the following statement, you can use ".Display" to ' display the mail. .Send End With On Error GoTo 0 MsgBox "File sent successfully" Set OutMail = Nothing Set OutApp = Nothing End Sub
לכוארה האט עס מיט מיין OUTLOOK וויל אפי' ווען GMAIL איז די דיפאלט אקאונט קומט נאכאלס ארויף מיין אנדערע אדרעס ביים שיקן
.SendUsingAccount = OutApp.Session.Accounts(account) ' Specify the account to use
