sende mail automatisk

Ja - via VBA

desværre kender jeg ikke noget til VBA kodning, så lidt hjælp ville være dejligt

Prøv at skrive et eksempel her - men det bliver lidt senere.

Nedenstående kode indsættes i under relevante ark - Højreklik / Vis programkode.

Inde i VBA-vinduet i værktøjslinjen:
Tools / References / find Microsoft Outlook.. i listen - sæt flueben -Gem og luk VBA-vinduet.


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$3" Then
        If Target.Value > 0 Then
            sendMail
        End If
    End If
End Sub
Private Sub sendMail()
Dim mailApp, Namespace, nyMail

    Set mailApp = CreateObject("Outlook.Application")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set nymod = nyMail.Recipients
    nymod.Add "xx@mail.dk"                    '<--- mail-adresse - justeres
   
    With nyMail
        .Subject = "Værdien i G3: " & CStr(Range("G3"))
        .Body = ""
        .Send
    End With
End Sub

Formlen virker perfekt, men jeg skal give tilladelse til at sende mailen , og så er det som ideen er væk, kan man få det til at omgås den tilladelse

Ja - har anvendt den gratis version på:

  www.contextmagic.com/express-clickyes/free-version.htm

i mere end 6 år.

Lukker den nu , send lige et svar supertekst

Et svar