Profil von pauli995

Frage

von pauli995

28.06.2016, 11:54

Hallo Community, wie kann ich es hinbekommen, dass die Dateinicht nur in den Postausgang gelegt wird sondern auch versendet wird? hier mein Code:

    Sub ExcelDateiSendenMitText()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "xxxx@xxx.com; xxxxx@xxx.de"
.Subject = Range("F1") & Date & Time
.attachments.Add AWS
.Body = "text blabla"
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

Ich weiß nicht weiter bitte um hilfe

Danke schon mal im Voraus

...zur Frage

Antwort

von pauli995

05.07.2016, 08:56

habe es so lösen können:

Sub Mappe_versenden_als_EMail()

Dim objOL As Object

Dim objMail As Object

Dim Bezeichnung As String

Dim MAdr As String

Set objOL = CreateObject("Outlook.Application")

Set objMail = objOL.CreateItem(0)

Bezeichnung = ActiveWorkbook.Name

MAdr = "name@xxx.com" 'Deine E-Mail Adresse

Application.ScreenUpdating = False

With objMail

.To = MAdr

.Subject = Range("F1") & Date & Time

.Body = "text"

.attachments.Add ActiveWorkbook.FullName

.Send

End wthi

MsgBox ("..")

Application.ScreenUpdating = True

End Sub

...zur Antwort

Frage

von pauli995

24.06.2016, 08:02

Excel button mit makro erst ausführen wenn Zellen x1 y1 z1 ausgefüllt sind. teilweise >0 teilweise text. Ich bekomme es einfach nicht hin. bräuchte euere Hilfe?

Excel button mit makro erst ausführen wenn Zellen x1 y1 z1 ausgefüllt sind. teilweise >0 teilweise mit text. Ich bekomme es einfach nicht hin. ich kenne mich wenig mit visual basic aus und daher habe ich schwierigkeiten. freue mich über jeden Vorschlag!

...zur Frage

Antwort

von pauli995

05.07.2016, 08:51

Habe es jetzt so gemacht und es klappt auch wenn es etwas umständlich ist:

Sub xbutton()


Dim rng As Range


Set rng = ActiveSheet.Range("C8, E8, G8, C12, E12, C16")


  If Application.CountA(rng) < rng.Count Then


    MsgBox ("Bitte folgende Eingabefelder ...")


    Else: Call ybutton


    End If


If Application.CountA(rng) < rng.Count Then


Exit Sub


End If


End Sub

...zur Antwort

Frage

von Radamstart

17.06.2015, 14:17

Kann man eine fünf im Hauptfach mit Spanisch ausgleichen?

Hallo, ich und ein Freund von mir gehen in die EF auf einem Gymnasium in NRW. Mein Freund hat eine fünf in Mathe und kann diese mit Deutsch und Englisch nicht ausgleichen, da er in beiden eine Vier bekommen wird. Jedoch hat er ab der EF Spanisch als Neue Fremdsprache (seine dritte) gewählt und hat dort eine zwei. Jetzt hat er Sorge, dass er mit Spanisch seine fünf in Mathe nicht ausgleichen könnte und er also das Jahr wiederholen müsste. Also zu meiner eigentlich Frage: kann er die Fünf in Mathe mit seiner Zwei in Spanisch ausgleichen? Kann mir vllt jemand einen Link dazu hinterlassen?

...zur Frage

Antwort

von pauli995

17.06.2015, 14:23

musst im zweiten blcok über 100p bekommen. hast du 4 fächer werden die punkte mit 5 multipliziert, hast du 5 prüfungsfächer werden di punkte mit 4 multipliziert. wenn er im 1 block mehr als 200p (12.1,12.2,13.1,13.2) und im blcok 2 über 100 dann hat er sein abi bestanden (Y)

...zur Antwort