Tabellenblatt mit Yahoo versenden

[Ubi5]

Hallo, bitte um Unterstützung - Danke!

Tieferstehendes Makro funktioniert mit Outlook einwandfrei.
Die Anpassung auf Yahoo bringe ich leider nicht zustande - um Hilfestellung wird ersucht.

Lg Ubi5



Sub Mail()
 
ActiveSheet.Unprotect
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Name\Documents\Rechnungen2025\MailRechnung\Rechnung.pdf", OpenAfterPublish:=True
If MsgBox("Rechnung in Ordnung?", vbYesNo) <> vbYes Then
Exit Sub
Else
End If
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim MyAttachments As Object
 
Set OutlookApp = CreateObject("outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set MyAttachments = OutlookMailItem.Attachments
 
With OutlookMailItem
.to = Range("C9")
.Subject = "Rechnung für" & " " & Range("A13") & " " & "RNr." & Range("A10")
 
.Body = "Wunschgemäß wird in der Anlage die Rechnung per pdf.Datei übermittelt." & vbCr & _
                "Mit freundlichen Grüßen" & vbCr & _
                "Name"
MyAttachments.Add "C:\Users\Name\Documents\Rechnungen2025\MailRechnung\Rechnung.pdf"
 
'Modifiziert
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Name\Documents\Rechnungen2025\Rechnung\" & ActiveSheet.Name & " " & Range("A13") & " " & "RNr." & Range("A10") & "-2025" & " " & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False
 
'** Range auf Spalte F erweitern??
Range("D3").Value = "Kopie"
Range("A1:D46").PrintOut Copies:=1
Range("D3").Value = "Original"
Range("A1:D46").PrintOut Copies:=1
 
'Zelle löschen
Range("A10").ClearContents
'.send
.Display
End With
 
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
 
ActiveSheet.Protect
 
End Sub

---

Habe noch eine Bitte bzw. Frage:

Ist es möglich statt mit Outlook, Yahoo usw. das Tabellenblatt mit einer Mailadresse einer Homepage zu versenden? 
z.B. "https://Muster.at"  - Muster@musterland.at  

Lg Ubi5

[knobbi38]

... mit einer Mailadresse einer Homepage zu versenden? 

PS:
Bitte beim nächsten Mal für den Sourcecode auch die dafür vorgesehenen Code-Tags verwenden.

[Ubi5]

Hallo Knobbi38,

vielleicht habe ich mich nicht korrekt ausgedrückt - aber meine vorherige Fragestellung ist korrekt. - vielleicht hast du eine Antwort darauf - Danke!

Lg Ubi5

[RPP63]

Moin!
OutlookApp bindest Du als Object ein, wenngleich Dein Code mit Option Explicit nicht funktionieren wird.
Yahoo wird ähnlich wie GMail nur mit CDO funktionieren.
Emde IT-Lösungen: Microsoft Access: E-Mails versenden mit CDO
Da man sich aber nie sicher sein kann, dass der Provider etwas daran schraubt, lehne ich seit Jahren weitere Hilfe dazu ab.

Gruß Ralf

[Ubi5]

Danke Ralf für die Info!

Lg Ubi5