pauli995
28.06.2016, 11:54
Excel: Code für Versenden einer Mail?

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

...zum Beitrag
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
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!

 ...zum Beitrag
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
verreisterNutzer
17.06.2015, 14:25
Kennt ihr gute Fernsehsender, die Dokumentationen zeigen?

Hallo, ich schaue abends sehr gerne Reportagen und Dokumentationen, Geschichte hängt mir langsam zum Halse raus und würde eben gerne mehr sowas wie Zukunft/Jetzt/Technologie/Wissenschaft schauen. Manchmal schaue ich sowas auf ntv und n24 aber da wird meistens viel übertrieben und hochgepuscht, ntv gehört zu rtl und n24 der axel-springer-ag die auch die bild produzieren, rtl und bild sind ja beide bekannter maßen nicht sehr seriös und bieten wenig verlässliche informationen, deshalb kann man das wahrscheinlich auch nicht wirklich von den Tochterunternehmen verlangen. Jetzt würde ich eben gerne sowas wie auf ntv und n24 abends läuft gerne in seriös und verlässlich schauen, kennt ihr solche Fernsehsender bzw. Sendungen die ihr mir empfehlen könnt?

 ...zum Beitrag
Antwort
von pauli995
17.06.2015, 14:27

tagesschau 24, zdf, phoenix, 3sat

 ...zur Antwort
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?

 ...zum Beitrag
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
Neckarmen
17.06.2015, 14:14
Wie kann ich die Schwachstellen einer Beziehung finden?

Also es ist so: Ich stehe auf ein Mädchen die aber einen Freund hat weswegen ich herausfinden möchte wo die Schwachstellen in der Beziehung liegen. Ps: Ich verstehe mich mit dem Mädchen gut:)

 ...zum Beitrag
Antwort
von pauli995
17.06.2015, 14:17

äähm ... das ist nicht fair dass du hoffst dass ihre beziehung den bach runter geht. dann magst du sie anscheinend nciht so sehr wie du denkst. denn wenn man jemanden mag oder gar liebt dann wünscht man dieser person das beste auch wenn man selber nciht dazu gehört. werde doch erstmal etwas erwachsener bevor du so egoistische gedanken hast und warte auf die richtige und auf den richtigen Zeitpunkt :)

 ...zur Antwort