invio automatici mail



  • invio automatici mail
    di mattew89 data: 02/11/2016 11:08:14

    iao a tutti,
    Ho un file excel in cui sono presenti i seguenti campi:

    colonna A= prodotto
    colonna B= giorni alla scadenza

    La colonna B puo' essere valorizzata con il numero dei giorni oppure con "SCADUTO". Il file excel è condiviso quindi non sono l'unico ad usarlo.
    Vorrei che solo quando apro io il file venga inviata una mail all'indirizzo prova@abc.it con il seguente messaggio nel testo:

    colonna A + colonna B + colonna C

    dei soli prodotti che non sono ="SCADUTO".

    mi aiutate?

    grazie
     
    Sub email()
    Dim myOutlook As Object
    Dim myMailItem As Object
    variabileEmailDelDestinatario = [H2]
    Dim TestoEmail As String
    TestoEmail = [A2] & " " & [B2]
    If [C2] = "SCADUTO" Then Exit Sub
    Set otlApp = CreateObject("Outlook.Application")
    Set otlNewMail = otlApp.CreateItem(olMailItem)
    'fName = ActiveWorkbook.Path & "" & ActiveWorkbook.Name
    With otlNewMail
    .to = variabileEmailDelDestinatario
    .Subject = "Scadenze configurazione Full"
    .body = TestoEmail
    .Display
    .send
    End With
    End Sub
    


  • Quantità in corrispondenza a due criteri
    di Guybrush (utente non iscritto) data: 02/11/2016 11:14:38

    Salve a tutti,
    ho un problema e non so neanche da dove cominciare. Per prima cosa vi allego il file così da semplificarvi la questione.

    Nel file trovate due fogli, "Delins" e "Prog". Quello che dovrei riuscire a fare è inserire nel foglio "Prog" le quantità richieste in base alla data e al codice, presi dal foglio "Delins". Di tutti i codici presenti in colonna "A" del foglio "Prog".

    La particolarità è che le date con ordini possono essere da 2 a 6.

    Nella cella a sinistra del codice c'è sempre scritto "ARD", nelle celle a sinistra delle date invece "DEL".

    Grazie in anticipo a tutti.
    Saluti



  • di Guybrush (utente non iscritto) data: 02/11/2016 11:17:33

    Scusate, non so come ho fatto, ma ho risposto alla vostra discussione volendo in realtà crearne una nuova



  • di alfrimpa data: 02/11/2016 12:35:02

    @ Matthew89

    Ti ho risposto sull'altro forum.

    Alfredo